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B 1 



SEQ 0001 



1 
2 
3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
^0 
41 
42 
43 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



.REM 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
NAINTAINER: 



IDENTIFICATION 
AC-8218B-nC 

CVKAJ80 DIS DECNAL INSTR TST 
JANUARY 1982 
DIAGNOSTIC ENGINEERING 



COPYRIGHT (C) 1977. 1V82 BY ^^^^ 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 
ALL RIGHTS RESERVED 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND HAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS 
OF SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAIL- 
ABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP 
OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE WE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 



DEC 
DECUS 



PDP 

DECTAPE 



UNIBUS 
VAX 



MASS6US 



I — 
! D ! 



T— T~-T- 

* ■ • 

I ! G ! 
I t 



T i A i L 



I 



I 
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56 

58 1.0 GENERAL INFORMATION 

59 

60 

62 1.1 '^STRACT 

THirSl AGNOSTIC VERIFIES THE OPERATION OF THE DI80L DECIMAL 

l\ INSTRUCTIONS OF THE LSI-11 CADDN,SUBN.CnPN«CVTNL3. 

ll THE PROGRAM CHECKS THAT EACH INSfRUCTiON IS INTERRUPTA8LE ^ ^ 

1% USING THECONSOLE SLU INTERFACE(SEE PARA 2.3.4) AND RUNS ALTERNATE 

. 1^ PASSES WITH THE TRACE TRAP ENABLED, UNLESS INHIBITED 

THE^PROWAM^Is'^OESlGNEDli^L^ AN LSI-11 WITH «IC OF MEMORY AND 
THE DIS HICROHS. IT CAN BE RUN UNDER XXDP*. APT, AND ACT MONITORS. 

72 THE SOFTWARE SWITCH REGISTER IS AT LOCATION 176. 

11 TO FULLY TEST THE LSI-11 DIBOL INSTRUCTION SET MICROMS, THE 

75 FOLLOWING DIAGNOSTICS MUST BE RUN: 

77 CVKAI* DIS MOVE t STRING INSTRUCTION TEST 

78 CVICAJ* CTHIS DIAGNOSTICS 

79 CVKAB* LSI-11 EIS INSTRUCTION TEST 

81 WHERE IS THE LASTED REVISION 

82 
83 

ii 1.2 SYSTEM REQUIREMENTS 

^ 

87 

BO 

89 1.2.1 EQUIPMENT 

91 LSI-n(KDl1-P) WITH A SERIAL LINE INTERFACE AND 

92 4K OF MEMORY 
93 

95 1.2.2 STORAGE 

97 THEPROGRAM USES MEMORY FROM 000000 TO 017104. 

93 

100 1.2.3 PRELIMINARY PROGRAMS 

102 irirASSUHirTHArTHE FOLLOWING DIAGNOSTICS HAVE BEEN RUN: 

10? LSI-11 BASIC CPU TEST CVKAA* 

105 LSI-11 TRAPS TEST CVKAD* 

107 WHERE IS THE LASTED REVISION 

108 
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SEQ 0003 



109 
110 
111 

115 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 



2.0 OPERATING INSTRUCTIONS 



2.1 LOADING PROCEDURES 

USE Itandard'^procedurPfor°pdp-ii absolute binary forhatted tapes 

2.2 STARTING PROCEDURE 

LOAD'THrSWnCH'RiGISTER WITH THE DESIRED SETTING 
(SOFTWARE SWITCH REGISTER LOCATION * 176) 

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 
STARTING?? 200: THE PROGRAM CLEARS ALL PROGRAM PARAMETERS AND 
THEN PRINTS ITS HAINDEC IDENTIFICATION. "END PASi" IS PRINTED 
AT THE END OF EACH FULL PASS OF THE DIAGNOSTIC. 

2.3 OPERATING PROCEDURES 

2.3.1 OPERATIONAL SWITCH REGISTER 

LOCATION TFnriisED'FOR'THE SOFTWARE SWITCH REGISTER^AND ^ 
THE FOLLOWING OPTIONS MAY BE SELECTED BY INSERTING A 1 IN THEIR 
RESPECTIVE BIT POSITIONS. 



HALT ON ERROR 
SCOPE LOOP 

INHIBIT ERROR TYPEOUT 
INHIBIT TRACE TRAP 
UNUSED 
UNUSED 

LOOP ON ERROR 

LOOP ON TEST IN SWR<05:00> 
INHIBIT INTERRUPTABILITY TESTS 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 

NOTE: ALL TYPEOUTS CAN BE SUPPRESSED BY MAKING BIT5 OF BYTE SENVM 
HIGH. 



E 1 

.HAIN. MACYll 30(10A6) 22-JAN-82 08:50 PAGE 5 ^f. 
CVKAJB.Pll :2-JAN-82 08:49 *^ 

15A 

156 2.3.2 RUNNING UNDER APT 

]ll TiirAPT'iSlLBOX-ETABLE IS LOCATED AT LOCATION 566. 

Jlo USING THE CONSOLE INTERFACE AS THE INTERRUPTING DEVICE. 

is? THE INTERRUPTABILTIY TESTS WILL BE RUN ON ONLY THE FIRST PASS TO 

]ll AVOID INTERFERENCE WITH THE APT INTERFACE. IF INTERRUPTABILITY 

ili TESTS ARE DESIRED ON ALL PASSES. ANOTHER SLU MUST BE SUPPLIED 

]Q AND ITS RECEIVER STATUS REGISTER ADDRESS I ITS IrJTERRUPT VECTOR MUST 

]g BE PLACED IN THE APT E-TABLE AT LOCATIONS "MASE" t 'IVECTV RESPECTIVELY. 

166 

168 2.3.3 RUN yJTH ALTERNATE^CONSOLE^AODRESS 

170 To"uSE*rcONSOLrADDRESs"oTHER"THAN 177560, THE OPERATOR 

j;V MUST SUPPLY THE PROGRAM WITH THE CORRECT ADDRESSES BY INSERTING THEM 

172 AT THE LOCATIONS LABELED: 

174 STKS: RCSR ADDRESS 

17C $TKB: RBUF ADDRESS 

17^ $TPS: TCSR ADDRESS 

177 STPB: TBUF ADDRESS 

178 
179 

180 2.3.4 RUN INTERRUPT TESTS WITH ALTERNATE SLU 

llJ TrUSrrSERIAL'LINE'liSTERFACE ADDRESS OTHER THAN THE STANDARD 

ig CONSOLE ADDRESS (177560). THE OPERATOR MUST SUPPLY THE CORRECT ADDRESS 

184 AND INTERRUPT VECTOR BY INSERTING THEM IN THE LOCATIONS LABELED: 

ill SBASE: aRCSR ADDRESS* 

187 SVECT1: ^RECEIVER INTERRUPT VECTOR* 
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188 

190 2.4 EXECUTION TIMES 

III the'given'execution ti«£s take into account the random characteristic 

]ll OF THE INTERRUPT TESTS. THE EXECUTION TIME OF THE FIRST PASS IS^APPROXIMATELY 

ill 10 SECONDS; BUT SUBSEWENT PASSES WITH INTERRUPT TESTS ENABLED COULD 

]li TAKE AS LONG AS 32 SECONDS. THEREFORE THE 32 SECOND EXECUTION TIME IS USED. 

]J| THE PASS TIME WITHCJT INTERRUPTS IS APPROXIMATELY 2 SECONDS. 

197 
198 
199 

20? 3.0 ERROR REPORTING 

203 irrROUnlirFAILS AND THE INHIBIT ERROR TYPEOUT (8IT13) OF THE SWR 

%U IS NOT SET. THE PC OF THE ERROR IS PRINTED. THE OPERATOR CAN FIND 

|05 THE ERROR REPORT IN THE COMMENT FIELD OF THAT PC LOCATION IN 

lol THE PROGRAM LISTING. IF HALT ON ERROR (BIT1S) OF THE SWR IS SET 

|5f THE PROGRAM WILL HALT AFTER PRINTING THE ERROR PC AND ENTER THE 

208 MACHINE ODT. 

210 E.G. XXXXXX <— PC OF THE ERROR 

III XXXXXX <— PC+2 OF THE HALT ON ERROR LOCATION 

a <— ODT ENTERED 

215 WHERE "XXXXXX" IS AN OCTAL VALUE 

216 
217 
218 
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219 

22? 4.0 SUBROJTINE ABSTRACTS 

222 

223 
224 

226 4.1 TRAPCATCHER 

III T'C+r-'StT" SEQUENCE IS REPEATED FRO« 0-776 TO CATCH ALL UNEXPECTED 

ii% IMPS. THUS ALL UNEXPECTED TRAPS OR INTERRUPTS WILL HALT 

110 ATTHE VECT0R+2/EXCEPT TRAPS TO LOCATION 0,4, t 10 WHICH 60 TO., 
ii? THEIR RESPECTIVE REPORTING ROUTINES "TZERO" ''tlHTRP", | "ILLTRP". 
m THE OTHER EXCEPTION IS LOCATION 100 (RTC INTERRUPT VECTOR) 

111 WHICH "Stains a ".♦2 - rti" sequence (returns from the interrupt). 

234 

236 4.2 SCOPE 

l\l ThIFrOUTINE call is placed between each subtest, it records THE 

g| STARTING ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED t UPDATES 

240 THE TEST NUMBER. IF A SCOPE LOOP IS REQUES ^D H WILL JUMP 

iJ? TO THE START OF THE SUBTEST AT WHICH TP*- SCOPE LOOP IS REQUESTED. 

242 
243 

244 4.3 ERROR 

246 THIs'rOUTINE CALL IS PLACED WHEREEVCR AN ERROR REWRT IS^UESIRED. THE 

247 LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUMBER. THIS ROUTINE 

548 REPORTS ERrSs TO APT USJNG 'lAPryPE", TYPES ERRORS TO THE CONSOLE USING THE 

iJI '"ItYPE" i'TTYPOCT" routines. AND HANDLES ERROR RESPONSES VIA SWR SETTINGS. 

250 

252 4.4 SPOWER 

254 THIS ROUTINE SAVES ALL GENERAL REGISTERS DWING TO^R^PyjW 

255 RESTORES THE« AT POWER-UP. IF A POWER FAILURE OCCURS 'WJWER" IS 
ill PRINTED AT THE CONSOLE AFTER POWER IS RESTORED AN5 THE PROGRAM 
257 IS RESTARTED AT TEST# 1 . 

258 
259 
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260 

262 4.5 NPREP 

Itl THirROUTINE IS USED TO STORE A COPY OF THE INSTRUCTION TEST 

265 ARGUMENTS TO BE STORED IN R0~>R5. 

266 
Pt%7 

268 *.6 6ENR 

^^0 THIS ROUTINE IS USED TO TRANSFER INSTRUCTION TEST ARGUMENTS^ 

TO THE GENERAL REGISTERS AND TO COPY THE STACK POINTER BEFORE THE 

272 TEST INSTRUCTION EXECUTION. 

273 
274 

275 4.7 XPSW 

THIS ROUTINE IS USED TO STORED THE EXPECTED PSW OF THE INSTRUCTION 

y/g TEST AND TO SET THE T-BIT IN THE EXPECTED PSW ON PASSES USING 

279 THE TRACE TRAP. 

280 

282 INTR 

284 THIS ROUTINE IS USED TO DETECT WHEN THE TEST INSTRUCTION MS 

ill BEEN INTERRUPTED AND TO CONTINUE THE INTERRUPT STREAM UNTIL THE 

286 INSTRUCTION IS INTERRUPTED. 
287 
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CVKAJB.P11 
288 

290 5.0 MISCELLANEOUS 

291 

292 

5.1 STACK POINTER 

STACrpOINTER IS INITIALLY SET TO 500 (OCTAL). 

297 



299 5.2 PASS COUNT 



A 16 BIT LOCATION "SPASS" IS USED TO KEEP THE PASS COUNT. IT IS 



In? A 10 dil LULMilun •r«oa 1 

^2 CLEARED BY STARTING AT 200. 

303 

305 5.3 TEST NUMBER 

In? a'i6"bIT LOCATION "$TSTNH" IS USED TO KEEP T5ACK OF THE SUBTEST 

Wo NUMBER. THIS NUMBER IS ALSO PLACED IN THE APT E-TABLE AT 'tTESTN" 

309 WHEN UNDER APT. 

310 

312 5.4 POWER FAIL 

Wl THrDIAGNOSTlC CAN BE POWER FAILED WITH NO ERRORS. AFTER POWERING 

Vis DOWN ANDTHEN UP AGAIN, THE PROGRAM WILL RESTAR FROM JF.SJM 1 

3]5 (KE., REStStS the pass THAT WAS INTERRUPTED) AFTER TYPING "POWER- 
S' TO ThI console. HOWEVER IF THE PROGRAM IS STORED IN MOS MEMORY 
\]l THAT CAN NOT HOLD DATA WITH POWER DOWN, THEN THE PHOGK^ WILL NOT 
319 RECOVER FROM A POWER FAIL. 

320 
321 

323 5.5 EVENT INTERRUPTS 

Hi THirOIAGNOSTlc"cAN BE RUN WITH THE REAL TIME CLOCK ACTIVE 

m (INTERRUPT * 100). LOCATION 100 POINTS TO LOCATION 102 _ 

WHICH cStAINS an "RTI" INSTRUCTION. THUS ON CLOCK INTERRUPTS. 
328 AN RTI IS EXECUTED TO HANDLED IT. 

329 
330 

331 X 

333 .ENABLE ABS 

334 .LIST HE 

335 .NLIST MC,MD,CND 

336 
337 
338 
339 
540 
341 
342 
343 
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344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
557 
358 
359 
360 
361 
362 
363 
364 
565 
366 
367 
368 
369 

370 001100 

371 

372 

373 

374 

375 00001 1 

376 000012 

377 000015 

378 000200 

379 177776 
380 

381 177774 

382 M7772 

383 177570 

384 177570 
385 

386 

387 000000 

388 000001 

389 000002 

390 000003 

391 000004 

392 000005 

393 000006 

394 000007 

395 000006 

396 000007 
397 

398 

399 000000 
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J 1 



SEO 0009 



.SBTTL BASIC DEPJNITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER 1100 
STACKS 1100 

.EQUIV E«T,ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EQUIV IOTIsCOPc ; .-BASIC DEFINITION OF SCOPE CALL 

.-•MISCELLANEOUS DEFINITIONS 
- ;C0DE FOR HORIZONTAL TAB 

:CODE FOR LINE FEED 
.-CODE FOR CARRIAGE RETURN 
-CODE FOR CARRIAGE RETURN-LINE FEED 
; PROCESSOR STATUS WORD 



HT= 
LF= 
CRs 
CRLFs 
PSs 
.EQUIV 



11 
12 
15 
200 
177776 
PS^PSW 



STKL«T= 17^774 
PIRQs mill 
DSWRs 177570 
DOISPs 177570 



.-STACK LIMIT REGISTER 
: PROGRAM INTERRUPT REQUEST REGISTER 
.-HARDVARE SWITCH REGISTER 
.•HARDWARE DISPLAY REGISTER 



.-•GENERAL PURPOSE REGISTER DEFINITIONS 



ROs 
R1= 
R2= 
R3= 
R4s 
R5= 
R6= 
R7= 
SPs 
PC= 



XO 
XI 
X2 
X3 
X4 
X5 
X6 
X7 
X6 
X7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



.-•PRIORITr LEVEL DEFINITIONS , ^. ... « 
PRO:: 0 :; PRIORITY LEVEL 0 
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BASIC DEFINITIONS 



400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

A53 

454 

455 



000040 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



PR1= 
PR2= 
PR3s 
PR4= 
PR5= 
PR6= 
PR7s 



40 

100 

140 

200 

240 

300 

340 



K 1 



PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 



SEO 0010 



LEVEL 1 
LEVEL 2 
LEVEL 3 
LEVEL 4 
LEVEL 5 
LEVEL 6 
LEVEL 7 



.-•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15= 100000 

SW14> 40000 

SW13» 20000 

SW12« 10000 

SW11= 4000 

SW10= 2000 

SW09s 1000 

SW08» 400 

SW07s 200 

SW06= 100 

SW05= 40 

SW04= 20 

SW03= 10 

SW02:: 4 

SW01= 2 

SWOO= 1 

.EQUIV SW09.SW9 

.EQUIV SW08,SW8 

.EQUIV SW07,SW7 

.EQUIV SW06,SW6 

.EQUIV SW05,SW5 

.EQUIV SW04,SW4 

.EQUIV SW03,SW3 

.EQUIV SW02,SW2 

.EQUIV SWOI.SWI 

.EQUIV SWOO^SWO 

:*DATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15= 100000 

BIT14= 40000 

BIT13= 20000 

BIT12S 10000 

BIT11- 4000 

BIT 10- 2000 

BIT09- 1000 

BIT08= 400 

B1T07= 200 

BIT06= 100 

BITOSs 40 

BIT04r 20 

BIT03S 10 

BIT02- 4 

BITOT- 2 

BIT00= 1 

.EOUIV BIT09.BIT9 

.EQUIV BIT08,BIT8 

.EOUIV BIT07«BIT7 
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BASIC DEFINITIONS 



L 1 



SEQ 0011 



456 






457 






458 






459 






460 






461 






462 






463 






464 






465 




000004 


466 




000010 


467 




000014 


468 




AAAA<C i 

000014 


469 




AAAA<C i 

000014 


470 




A AAA t A 

000020 


471 




A AA A^ t 

OOOO1.4 


472 




A AA A9 A 

000030 


473 




A AA A9 / 

000034 


474 




AAAA^ A 

000060 


475 




AAAA^ t 

000064 


<.76 




A A A t / A 

000240 


477 




AAA^ AA 

000200 


478 




A AAAA4 

000001 


479 




AAA<t A A 

000100 


480 




AAAA/ A 

000040 


481 




4 ^4 / AA 

171400 


482 




AA A VA A 

000300 


483 




AA A A ^A 

000020 


484 




A A A A A 4 

000001 


485 




A AAAA4 

000001 


486 




000000 


487 




\77777 


488 




1 f OoO 


489 




AAAA^A 

000060 


490 




AAAAAA 

000000 


491 






492 






493 






494 






495 






496 






497 




AAAAAA 

000000 








499 






500 




000174 


501 




502 


000174 


000000 


503 


000176 


000000 



504 
505 
506 

507 000000 

508 000002 

509 000004 

510 OC0006 

511 000010 



000000 
014702 
000340 
014712 
000340 
014722 



.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 

:*BASIC 

ERRVEC= 

RESVEC= 

T8ITVEC- 

TRTVEC= 

BPTVEC= 

I0TVEC= 

PURVECs 

EHTVECs 

TRAPVEC 

TKVECs 

TPVEC= 

PIRQVEC 



8IT06,BIT6 
BIT05,BIT5 
BIT04,BIT4 
BIT03,BIT3 
BIT02,BIT2 
BITOUBin 
BITOO.BITO 



TRAP VECTOR ADDRESSES ^ 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
•T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP <IOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (E«T> **ERROR** 
•TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
..PROGRAM INTERRUPT REQUEST VECTOR 
§60 



"CPU 
4 

10 

:14 

14 
14 
20 
24 
30 
=34 
60 
64 
s240 

APTSIZE= 
APTENV= 0^1 
APTSPOOLa 
APTCSUP= 
SSURs 17U00 
SSURMKs 300 



100 
040 



TBIT= 
$TN= 
Ns 

X= 

Nxn= 

ABASE- 
AVECTIa 60 
.sO 



20 
1 
1 

$TN-1 

^77777 
177560 



.SBTTL TRAP CATCHER 

;*ALL UNuiED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2,HALT" 

.••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS ^ ^ 

;-*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

DISPREG:'!loRD 0 •••§2"H!2I 

SUREG: - .WORD 0 ;; SOFTWARE SWITCH REGISTER 



.=0 

TZERO 

340 

TIMTRP 

340 

ILLTRP 



;SET LOCATIONS 0,4.6 TO ERROR REPORTS 
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512 000012 

513 

514 

515 

516 

517 000100 

518 000102 
519 

520 
521 

522 000200 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 000046 
533 

534 000052 

535 

536 

537 

538 

539 

540 

541 

542 

543 000024 
544 

545 000044 

546 

547 

548 

549 

550 

551 000400 

552 000400 

553 000402 

554 000404 

555 000406 

556 000410 

557 000412 
558 

559 



000340 



000100 
000102 
000002 



000200 

000167 000512 



000400 



000400 
000046 
014604 
000052 
000000 
000400 



000400 
000024 
000200 
000044 
000400 
000400 



000000 
000566 
000030 
000040 
000000 
000027 
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TRAP CATCHER 

340 



.=100 
.UORD 
.WORD 



n 1 



SEQ 0012 



.=200 



102 
2 



START 



;HANDLE EVENT LINE INTERRUPTS 



.•STARTING LOCATION FOR PROGRAM 



.S8TTL 



.=400 

ACT11 HOOKS 



' **************************************************************** 

•HOOKS REQUIRED BY ACT11 

$SVPC=. ;SAVE PC 

.=46 

SENDAO ;:1)SET L0C.46 TO ADDRESS OF $ENDAD IN .$EOP 

luORD 0 ::2)SET L0C.52 TO ZERO 

.=$SVPC ;; RESTORE PC 

.S8TTL APT PARAMETER BLOCK 

• **************************************************************** 

;§ET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 :;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 : .-POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR ; .-POINT TO APT HEADER BLOCK 

.=.$X .-.-RESET LOCATION COUNTER 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD: 

SHIBTS: 

SMBADR: 

STSTM; 

SPASTM: 

SUNITM: 



.WORD 0 :;TUO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD SMAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 30 ;;RUN TIM OF LONGEST TEST 

.WORD 40 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.WORD : .-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.WORD $ETEND-$^IL/2 .-.-LENGTH MAI LBOX-E TABLE (WORDS) 
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560 
561 



564 
565 
566 

567 000500 

563 000500 

^69 000502 

570 000503 

571 QQ0504 

572 000506 

573 000510 

574 000512 

575 000514 

576 000515 

577 000516 

578 000520 

579 000522 

580 000524 

581 000526 

582 000530 

583 000532 

584 000534 

585 000535 

586 000536 

587 000540 

588 000542 

589 000544 

590 000546 

591 000550 

592 000552 

593 000554 

594 000555 

595 000556 

596 000557 

597 000560 

598 000562 

599 000563 

600 000564 
601 

602 
603 
604 
605 

606 000566 

610 
611 
612 
613 
614 
615 



000500 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000000 
077 
015 
000012 



OOOOOC 
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COmON TAGS 

.S8TTL COMMON TAGS 

• .»*»»»*»*»*»********♦***»***»****************************•**••*• 

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



SEQ 0013 



SCMTAG: 

STSTNM: 

SERFL6: 

$ICNT: 

$LPADR: 

SLPERR: 

$ERTTL: 

SITEMB: 

$ERMAX: 

SERRPC: 

SGDADR: 

SBDADR: 

SGDDAT: 

$eDDAT: 



SAUT06: 
SINTAG: 

SUR: 

DISPLAY 

$TKS: 

STKB: 

$TPS: 

STP8: 

SNULL: 

$FILLS: 

$F1LLC: 

STPFLG: 

$ESCAPE 

SQUES: 

SCRLF : 

$LF: 



.=500 

.WORD 
.BYTE 
.BYTE 
.WORD 
.UORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

:0 
.ASCII 
.ASCII 
.ASCIZ 



0 
0 
0 
0 
0 
0 

f 

0 

1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 
DDISP 



0 
2 

12 
0 

/?/ 

<15> 

<12> 



START OF COMMON TAGS 

;: CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

;; CONTAINS SCOPE LOOP ADDRESS 

CONTAINS SCOPE RETURN FOR ERRORS 

CONTAINS TOTAL ERRORS DETECTED 
;; CONTAINS ITEM CONTROL BYTE 
;: CONTAINS MAX. ERRORS PER TEST 
: .-CONTAINS PC OF LAST ERROR INSTRUCTION 
:; CONTAINS ADDRESS OF 'GOOD' DATA 
;; CONTAINS ADDRESS OF 'BAD' DATA 
;; CONTAINS 'GOOD' DATA 
;; CONTAINS 'BAD' DATA 
;; RESERVED— NOT TO BE USED 

: .-AUTOMATIC MODE INDICATOR 
.-.-INTERRUPT MODE INDICATOR 

.-.ADDRESS OF SWITCH REGISTER 
) -ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
;:TTY KBD BUFFER 

.-.-TTY PRINTER STATUS REG. ADDRESS 
.-.-TTY PRINTER BUFFER REG. ADDRESS 
.-.-CONTAINS NULL CHARACTER FOR FILLS . ^ 
.-.-CONTAINS # OF FILLER CHARACTERS REQUIRED 
.-.-INSERT FILL CHARS. AFTER A/llNE FEED*' ^ 
••'terminal AVAILABLE" FLAG (BIT<07>=0=YES) 
.-.-ESCAPE ON ERROR ADDRESS 
.-.-QUESTION HARK 
.-.-CARRIAGE RETURN 
:;LINE FEED 



.SBTTL APT MAI LBOX-E TABLE 



.EVEN 

SMAIL: 

IMSGTY: 

SFATAL: 

STESTN: 

SPASS: 

$DEVCT: 

SUNIT: 

SMSGAD: 

SMSGLG: 

$E TABLE : 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



AMS6TY 

AFATAL 

ATESTN 

APA5S 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 



.-APT MAILBOX 
.•MESSAGE TYPE CODE 
.-FATAL ERROR NUMBER 
:TEST MMER 
;PASS COUNT 
.-DEVICE COUNT 
.1/0 UNIT NUMBER 
; MESSAGE ADDRESS 
.-MESSAGE LENGTH 
:APT ENVIRONMENT TABLE 
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APT HAIL80X-E TABLE 



B 2 



SEO OOU 



616 000606 

61 7 000607 

618 000610 

619 000612 

620 000614 
621 

622 
623 
624 
625 
626 

627 000616 

628 000617 
629 

630 
631 
632 

633 000620 
634 

*>35 000622 

636 000623 

637 000624 

638 000626 

639 000627 

640 000630 
64 T 000632 

642 000633 

643 000634 

644 000636 

645 000640 

646 000642 

647 000644 
648 



000 
000 
000000 
OOOOOO 
000000 



000 
000 



OOOOOO 

000 
000 
OOOOOO 
000 
000 
OOOOOO 
000 
000 
OOOOOO 
000060 
OOOOOO 
177560 



SENV: 

SENVn: 

SSURE6: 

$USUR: 

SCPUOP: 

• * 



MAMSI: 
$HTYP1 : 

MAORI : 

SNAnS?: 

$«TyP2: 
$MADR2: 

$nAns3: 

$HTyP3: 
SMADR3: 

$nAns4: 

JHTYP4 : 

SnADR4: 

fVECTI: 

SVECT2: 

SSASE: 

SETEND: 

.«EXIT 



.BYTE 
.BYTE 
.yORD 
.yORD 
.yORD 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 



AENV 

AENVn 

ASWRE6 

AUSWR 

ACPUOP 



AMAHS 1 
AMTYP1 



.WORD AMADRI 



VMAS2 
A«TYP2 
AnADR2 

AAAnsB 

A«TYP3 
AflADR3 
AMAm4 
A«TYP4 
AflADR4 
AVECT1 
AVECT2 
ABASE 



;; ENVIRONMENT BYTE 

ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;:CPU TYPE, OPTIONS 

BI TS 1 5-1 1 ,05,02 . 1 1 /20s03 . 1 1 /40«04 , 1 1 /45*05 

11/70=06,PDOs07.0s10 
BIT lOsREAL TIME CLOCK 
BIT 9-FL0ATIN6 POINT PROCESSOR 
BIT 8^M0RY MANAGEMENT 
;;HI6H AODRESS.M.S. BYTE 
;;MEM. TYPE,BLIC#1 
mIm.TYPE byte - (HIGH BYTE) 

900 NSEC CORE^OO^ 

300 NSEC BIPOLAR 

500 NSEC MOS«003 

•'MEM^LAST'^ADDft^if BYTES,TH1S WORD AND LOW OF -TYPE" ABOVE 

::HIGH AODRESS.M.S. BYTE 

;; MEM. TYPE ,8LK#2 

;:MEM.LAST ADDRESS ,3LK#2 

::HIGH AOORESS,M.S.BYTE 

;;MEM.TVPE.BLK#3 

::MEM.LAST ADDRESS,BLK#3 

:;HIGH ADORESS.M.S.BYTE 

;;MEM. TYPE .811014 

;;MEM.UST ADDRESS .8LK#4 

;; INTERRUPT VECT0R#1.BUS PRIORI TY#1 

.-.INTERRUPT VECrOR#28USPRIORITV*2^^^^ 

.• BASE ADDRESS Of EQUIPMENT UNDER TEST 
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M9 

630 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 

665 000644 
664 

665 000644 

666 000646 

667 000650 

668 000652 

669 000654 

670 000656 

671 000660 

672 000662 

673 000o64 

674 000666 

675 000670 

676 000672 

677 000674 

678 000676 

679 000700 

680 000702 

681 000704 

682 000706 

683 000710 

684 000712 

685 0007U 
686 

687 
688 
689 

690 000716 

691 000722 
000726 



692 
69! 
694 

695 000732 

696 000''36 

697 000740 

698 000744 

699 000746 
700 

701 00075? 

702 00«760 

703 000766 

704 000774 



000000 
000000 
000000 
000000 
000000 
017044 
000000 
000000 
177564 
177566 
000064 
000066 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



005067 
005067 
005067 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
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08:49 ERROR POINTER TABLE 

.SSTTL ERROR POINTER TABLE 

.••THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

.••THE INFORMATION IS OBTAINED BY USING THE INDEX NUWER FOUND IN 

.••LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

.••N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

••N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



SEO 0015 



177646 
177640 
177640 



000500 

000540 

000500 

015150 
000340 
015546 
000340 



000020 
000022 
000030 
000032 



;• 


EM 




;• 


DH 




;* 


DT 




;• 


DF 




$ERRTB: 






S1LN: 


.WORD 


0 


SI ADR: 


.WORD 




S2LN: 


.WORD 


0 


S2ADR: 


.WORD 


0 


DSTLN: 


.WORD 




DSTAD: 


.WORD 


6UF 


FILL: 


.WORD 




TABLE: 


.WORD 


0 


TCSR: 


177564 




T8UF: 


177566 




TVECT: 


64 




TPSW: 


66 




PCI: 


0 




CCODES: 


0 




EXPPSW: 


0 




SAVR6: 


0 




BADR6: 


0 




OLDPC: 


0 




TEMP: 


0 




TEMPI : 


0 




TEMP2: 


0 





;; POINTS TO 
; .-POINTS TO 
;; POINTS TO 
.-.POINTS TO 



THE ERROR MESSAGE 
THE DATA HEADER 
THE DATA 
THE DATA FORMAT 



: SOURCE 1 LENGTH 

;S0URCE1 ADDRESS 

:S0URDE2 LENGTH 

:S0URCE2 ADDRESS 

.-DESTINATION LENGTH 

.-DESTINATION ADDRESS 

;FILL CHARACTER 

.-TRANSUTION TABLE ADDRESS 

;TCSR ADDRESS OF SLU USED FOR INTERRUPTS 

;T8UF ADDRESS 

.-TRANSMIT INTERRUPT VECTOR 

AND PSW LOCATION 
.-ADDRESS OF TEST INSTRUCTION TO INTERRUPT 
: CONDITION CODES AFTER EXECUTION OF TEST INSTRUCTION 
.-EXPECTED PSW 

.-STACK POINTER VALUE BEFORE TEST INSTRUCTION EXECUTION 
:BAD STACK POINTER VALUE 

.-ADDRESS WHERE UNEXPECTED TRAP OR INTERRUPT OCCURRED 



START: CLR (FATAL 
CLR SMSGTYP 
CLR $TESTN 

.SBTTL INITIALIZE THE 



COMMON 



MOV 
CLR 
CMP 
BNE 
MOV 

MOV 
MOV 
MOV 
MOV 



#SCMTAG.R6 
fSWR.R6 ;DONE? 
#5^0. SP 



.-CLEAR ERROR NO. 
.CLEAR MESSAGE TYPE 
.-CLEAR TEST NO. 

TAGS 

.-CLEAR THE COMMON TAGS (SCMTAG) 
.-FIRST LOCATION TO BE CLEARED 
.CLEAR MEMORY LOCATION 



AREA 



.-LOOP BACK IF NO 
.-SETUP THE STACK POINTER 
.INITIALIZE A FEW VECTORS 
C ;IOT VECTOR FOR SCOPE ROUTINE 
.-LEVEL 7 

fSERROR.aiEMTVEC .EMT VECTOR FOR ERROR ROUTINE 
#340.8fEMTVEC*2 .LEVEL 7 



ftSCOPE.atlOTVI 
f340.afIGTVEC^ 
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705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

/47 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 



001002 
001010 
001016 
001024 
C31032 
001040 
001044 



012737 
012737 
012737 
012737 
016767 
005067 
112767 



016764 
000340 
015346 
000340 
013510 
177514 
000001 



000034 
000036 
0000J4 
000026 
013500 

177443 



nov 

HOV 
NOV 
NOV 
NOV 
CLR 
NOVB 



001052 


012737 


014650 


000014 






001060 


012737 


000340 


000016 




NOV 


001066 


012767 


000002 


013554 




NOV 


001074 


013767 


AAAAi A 
00001 0 


1 1 rOOO 






con 02 


012737 


001130 


000010 




NOV 


001110 


005046 








CLR 


001112 


012746 


001120 






NOV 


001116 


000006 








RTT 


001120 


012767 


000006 


013522 


1$: 


NOV 


001126 


000402 








BR 


001130 


062706 


000010 


000010 




ADD 


001134 


016737 


177550 


3$: 


NOV 


A/M 1/0 

001 14c 


OOjOO^ 


01 j3 lU 


177332 






001146 


012767 


001146 




NOV 


001154 


012767 


001154 


177326 




NOV 


001162 


012767 


000176 


177350 




NOV 


001170 


012767 


000174 


177344 




NOV 


001176 


005067 


177372 


177377 




CLR 


001202 


132767 


000200 




BITB 


001210 


001403 




177320 




BEQ 


001212 


012767 


000610 


4$: 


NOV 


001220 










001:20 


026737 


013360 


000042 




CNP 


or. 226 


001424 








BEQ 


001230 


104401 


017032 






TYPE, 


001234 


013700 


000642 






NOV 


001240 


062700 


000004 






ADD 


001244 


010037 


000664 






NOV 


001250 


005720 








TST 


001252 


010037 


000666 






NOV 


001256 


013700 


000636 






NOV 


001262 


062700 


000004 






ADD 


001266 


010037 


000670 






NOV 


001272 


005720 








TST 


001274 


010037 


000672 






NOV 


001300 


106427 


000200 




BEGIN: 


NTW 



D 2 



CONNOM TAGS 



SEO 0016 



#$TRAP.a*TRAPVEC .TRAP VECTOR FOR TRAP CALLS 
#340-a*TRAPVEC*2; LEVEL 7 
#SPURDN.a#PWRVEC ;POWER FAILURE VECTOR 
#340.*rPWRVEC*2 .-LEVEL 7 

$ENOCT.$EOPCT .-SETUP END-0F-PR06RAN COUNTER 
SESCAPE .-CLEAR THE ESCAPE ON ERROR ADDRESS 

4P1,$ERNAX .-ALLOW ONE ERROR PER TEST 

.-INITIALIZE THE 'l-fllT^* TRAP VECTOR. THEN LOAD LOCATION 
.-THE 'IND-OF-PASS" (SEOP) ROUTINE. WITH A "kM" OR UTT" 
#$RTRN.a*TBITVEC .SET ^T' BIT VECTOR TO SRTRN 
#340.a*TBITVEC+2 .-LEVEL 7 



fRTI.$RTRN 
afRESVEC.TENP 
«2$.»rRESVEC 
-(SP) 
#1$.-(SP) 

#RTT.$RTRN 
3$ 

#10, SP 

TENP,a#RESVEC 
STBIT 
f..$LPAOR 
f.,$LPERR 

fSUREG.SUR 
«DISPREG,DISPUY 

SPASS 

«APrSIZE,SENVn 
4$ 

fSSWREG.SWR 

SENDAD,a#42 
BEGIN 
NAME 

afSBASE.RO 

ft0.i»rcsR 

<R0)* 
RO.a#TBUF 
aHvECTI ,R0 
f4.R0 

RO.arrvECT 

(RO)* 
RO.a#TPSW 



:SET SRTRN TO A RTI 

.-SAVE ILLEGAL INSTRUCTION TRAP VECTOR 
.-TRY TO DO A RTT 
.-DUHNY PS 
.-AND PC 
'TRY THE RTT 

I-RTT IS LEGAL— SET SRTRN TO A RTT 

;RTT ILLEGAL— CLEAN OFF THE STACK 
.•RESTORE ILLEGAL INSTRUCTION TRAP VECTOR 
.-CLEAR 'T' BIT SWITCH 
.'INITIALIZE THE LOOP ADDRESS FOR SCOPE 
.'SETUP THE ERROR LOOP ADDRESS 
.'SETUP FOR A SOFTWARE SWITCH REGISTER. 
.'POINT TO SOFTWARE SWR 



.'CLEAR PASS COUNT 
.'TEST USER SIZE UNDER APT 
; YES. USE NON-APT SWITCH 
.'NO.USE APT SWITCH REGISTER 

:UNDER ACT11? 

:8R. IF YES (SKIP PROGRAM ID TYPEOUT WHEN UNDER AACT) 

;SET UP ADDRESSES OF SLU TO USE FOR INTERRUPTABILITY TES 

;6ET ADDRESS OF THE SLU 

.'ADJUST TO TCSR ADDRESS 

.STORE TCSR ADDRESS 

.'ADJUST TO TBUF ADDRESS 

.'STORE TBUF ADDRESS 

.'GET SLU INTERRUPT VECTOR 

.'ADJUST TO TRANSMIT INTERRUPT VECTOR 

.'STORE TRANSMIT INTERRUPT VECTOR 

.'ADJUST TO TRANSMIT INTERRUPT PSW 

.'STORE TRANSMIT INTERRUPT PSW LOCATION 



#200 



.'SET PRIORITY TO 7 



TEST "ArON" WITH S0URCE1 LENGTH «0 t S0URCE2 STRING VALID 



.MAIN. NACYll 30(1046) 22-JAN-82 08:50 PAGE 
22-JAN-82 08:49 Tl 



18 



E 2 



CVKAJ8.P11 

'61 001304 

/62 001306 

763 001312 

764 001314 

765 001316 
.66 001320 

767 001322 

768 001324 

769 001330 

770 001336 

771 001344 

772 001352 

773 001360 

774 001364 

775 001366 

776 001372 
777 

778 001374 
779 

780 001376 

781 

782 

783 001400 
784 

785 001402 

786 001402 

787 001406 

788 001410 
789 

790 

791 001412 

792 001416 

793 001420 
794 

795 

796 001422 

797 001426 

798 001430 
799 

800 

801 001432 

802 001436 

803 001440 
804 

805 

806 001442 

807 001446 

808 001450 
809 

810 

811 001452 

812 001456 

813 001460 
814 

815 

816 001462 



TEST "ADDN" WITH S0URCE1 LENGTH =0 & S0URCE2 STRING VALID 



SEC3 C'^ 



000004 

004567 013420 

000000 

001550 

000001 

001551 

000000 

004767 013474 
013767 000010 177354 
013767 000012 177350 
012737 001402 000010 
012737 000340 000012 
004567 013460 
000217 

004767 013366 
000277 

076050 

104001 



000464 



020067 177236 

001401 

104002 



020167 177230 

001401 

104003 



020267 ^77222 

001401 

104004 



TST1: 



020367 177214 

001401 

104005 



020467 177212 

001401 

104006 



020567 177200 

001401 

104007 



11: 



T1C0NT: 



64$: 



65$: 



66$: 



67$: 



68$: 



69$: 



SCOPE 
JSR 



JSR 

nov 
nov 
nov 

NOV 
JSR 
.yORD 
JSR 

sec 

ADDN 



R5.NPREP 
0 

S1T1 
1 

S2T1 
0 

PC.CLBUF 

M10, TEMPI 

a*12,TE«P2 

^TICONT.MIO 

«340.»ri2 

R5-XPSW 

21^ 

PCGENR 



ERROR 1 



BR ENDT1 



C«P 
BEQ 
ERROR 



C«P 
BEQ 
ERROR 



C«P 
BEQ 
ERROR 



C«P 
BEQ 
ERROR 



BEQ 
ERROR 



C«P 
BEQ 
ERROR 



R0.S1LN 

64i 

2 



RI.StADR 

65i 

3 



R2.S2LN 

66$ 

4 



R3.S2A0R 
67i 

5 



R4.F1LL 

68i 

6 



RS.DSTAD 
69i 

7 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

:S0URCE1 ADDRESS 

:S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.•CLEAR BUFFER AREA 

.-SAVE TIMEOUT TRAP VECTOR CONTENTS 

.•POINT TIMEOUT VECTOR TO TEST CONTINUATIl'N 

; STORE EXPECTED PSU VALUE 

:SET UP GENERAL REGISTERS 



.•EXECUTE "ADDN" INSTRUCTION 



;***************TEST 1 - ERROR 1*»**« 
.•DECIMAL INSTRUCTION DID NOT TRAP ON 
;A ZERO SOURCE 1 LENGTH 



.•CHECK RO UNCHANGED 

;*ft********ftft***TEST 1 

:R0 CHANGED 

;R0 SHOULD STILL EQUAL 
.•CHECK R1 UNCHANGED 

;***************TEST 1 
:R1 CHAN6ED 

;R1 SHOULD STILL EQUAL 
.•CHECK R2 UNCHANGED 

;***************TEST 1 
;R2 CHANGED 

;R2 SHOULD STILL EQUAL 
.•CHECK R3 UNCHANGED 

;ft**************TEST 1 

;R3 CHANGED 

;R3 SHOULD STILL EQUAL 
.•CHECK R4 UNCHANGED 

;***************TEST 1 

:R4 CHANGED 

;R4 SHOULD STILL EQUAL 
.-CHECK R5 UNCHANGED 

;***************TEST 1 

;R5 CHANGED 

;R5 SHtt'^.D STILL EQUAL 



- ERROR 2**»»****»« 

CONTENTS OF "SILN" 



- ERROR 3*************** 

CONTENTS OF "SI ADR" 

- ERROR 4*************** 
THE CONTENTS OF "S2LN" 

- ERROR 5*************** 

THE CONTENTS OF "S2ADR" 

- ERROR 6*************** 

THE CONTENTS OF 'TILL" 

- ERROR 7*********«*«»»« 

THE CONTENTS OF '^STAO" 
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817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

830 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 



001462 
001466 
001472 
001476 
001500 



001502 
001506 
001510 
001514 



001516 
001520 
001524 
001530 
001532 



001534 
001540 
001546 

001550 
001550 
001551 
001551 



001552 
001560 



001566 
001570 
001574 
001 S76 
001600 
001602 
001604 
001606 
001612 
001620 
001626 
001634 
001642 
001646 
001650 
001654 



020067 
001401 
104010 



021627 
001403 
011637 
104011 



010600 
062700 
020037 
001401 
104012 



012716 
013766 
000002 



060 
060 



016737 
016737 



000004 

004567 

0000C1 

002032 

000001 

002033 

000000 

004767 

013767 

013767 

012737 

012737 

004567 

000217 

004767 

000277 



000002 
177400 
177202 



001376 
000522 



000004 
000702 



001552 
000700 



177134 
177130 



013136 



013212 
000010 
000012 
001664 
000340 
013176 

013104 



1$: 



2$: 



19 

TEST 

NOV 
BIC 
C«P 
BEQ 
ERROR 



BEQ 

mv 

ERROR 



NOV 
ADD 
CNP 
BEO 
ERROR 



r 2 

'AODN" WITH S0URCE1 LENGTH -0 t S0URCE2 STRING VALID 



SEO 0018 



3$: 

000002 

S1T1 
S2T1 



000010 ENDT1 
000012 



NOV 
NOV 
RTI 



.BYTE 

.BYTE 
.EVEN 

NOV 
NOV 



2(SP).R0 

#1 77400. RO 

RO.EXPPSU 

1$ 

10 



(SP).#TU2 
2$ 

(SP).a#$8DADR 

11 



SP.RO 
#4.R0 
R0,a#SAVR6 
3$ 

12 



#ENDT1,(SP) 
»rEXPPSU,2(SP} 



60 
60 



TENP1,i#10 
TENP2.a#12 



.•CHECK PSU AT TINE Of TRAP 



;*************»«TEST 1 - ERROR 10»»»**««»»*««"* 

'PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSU" 
.•RESULTANT PSU IS IN RO 
.•CHECK ADDRESS Of TRAP 

.STORE BAD ADDRESS 

;ftftftftftft*ft*ft*****TEST 1 - ERROR 11***«t**t*t»*t** 

;TRAP ADDRESS ERROR 

.•EXPECTED ADDRESS IS '71*2" 

•RESULTANT ADDRESS IS STORED AT "SBDADR" 

.•CHECK SP RESTORATION 



;***************TEST 1 - ERROR 12***««** 
.•STACK POINTER WAS NOT RESTORED ^ 
.EXPECTED SP VALUE IS STORED AT ',^VR6" 
.•ERRONEOUS SO VALUE IS AT 'BADR6" 
.•RESTORE SP I PSU 



;S0URCE1 STRING 

;N0ST SIGNIflCANT DIGIT 

;S0URCE2 STRING 

;N0ST SIGNIflCANT DIGIT 



.♦RESTORE TINEOUT VECTOR CONTENTS 



•ft*************************** 
•TEST 2 TEST "ADON" UI 

***************************** 

t§T2: SCOPE 



177072 
177066 
000010 
000012 



JSR 



JSR 

NOV 

NOV 

NOV 

NOV 

JSR 

.UORD 

JSR 

sec 



R5.NPREP 
1 

S1T2 
1 

S2T2 
0 

PC.CLBUf 

BflO.TENPI 

a#12.TENP2 ^ 

#T2CONT.a#lO 

f540.a#12 

R5.XPSU 

21^ 

PC.GENR 



*********************************** 

TH A POSITIVE LEADING SIGN S0URCE1. t VALID S0URCE2 
*********************************** 

.•PREPARE ARGUMENTS fOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

; SOURCE 1 ADDRESS 

;S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.CLEAR BUffER AREA 

.-SAVE TINEOUT TRAP VECTOR CONTENTS 

.•POINT TINEOUT VECTOR TO TEST CONTINUATION 

.STORE EXPECTED PSU VALUE 

;SET UP GENERAL REGISTERS 



HACYII 30(1046) 



076050 
10A001 

000A6A 



020067 
C0U01 
104002 



020167 
001401 
104003 



020267 
001401 
104004 



020367 
001401 
104005 



020467 
001401 
104006 



020567 
001401 
104007 



016600 
042700 
020067 
001401 
104010 



021627 
001403 
011637 
104011 



010600 



CVKAJB. 
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873 




874 


001656 


875 




876 


001660 


877 




878 




879 


001662 


880 




881 


001664 


682 


001664 


883 


001670 


884 


001672 


885 




886 




887 


001674 


888 


001700 


889 


001702 


890 




891 




892 


001704 


893 


001710 


894 


001712 


895 




896 




897 


001714 


898 


001720 


899 


001722 


900 




901 




902 


001724 


903 


001730 


904 


001732 


905 




906 




907 


001734 


908 


001740 


909 


001742 


910 




911 




912 


001744 


913 


001744 


914 


001750 


915 


001754 


916 


001760 


917 


001762 


918 




919 




920 




921 


001764 


922 


001770 


923 


001772 


924 


001776 


925 




926 




927 




928 


002000 



>2-JAN-82 
h49 



17675< 



176746 



176740 



176732 



176730 



176716 



000002 
177400 
176720 



001660 
000522 



08:50 PAGE 
T2 



T2: 



20 
TEST 



G 2 

'AODN" WITH A POSITIVE LEADING SIGN SOURCEl, ( VALID S0URCE2 



SEO 0019 



ADDN 

ERROR 1 



BR ENDT2 



T2C0NT: 



64S: 



65S: 



66$: 



67$: 



68$: 



69$: 



1$: 



CMP 
BEQ 
ERROR 



R0.S1LN 
64i 

2 



2$: 



CMP R1.S1ADR 
BEQ 65$ 
ERROR 3 



CMP R2.S2LN 
BEO 66$ 
ERROR 4 



CMP R3.S2ADR 
BEO 67$ 
ERROR 5 



CMP R4.FILL 
BEQ 68i 
ERROR 6 



CMP R5.DSTAD 
BEO 69$ 
ERROR 7 



MOV 2(SP).R0 

SIC #1 77400, RO 

CMP RO,EXPPS« 

BEQ 1$ 

ERROR 10 



CMP (SP).#T2*2 

BEQ 2$ 

MOV (SP)«a#$8DADR 

ERROR 11 



NOV SP,RO 



.•EXECUTE "ADDN" INSTRUCTION 



;***************TEST 2 - ERROR 
.■DECIMAL INSTRUCTION DID NOT TRAP ON 
;A POSITIVE LEADING SIGN S0URCE1 



.•CHECK RO UNCHANGED 

'•TEST 2 - ERROR 2* 



;R0 CHANGED ., 
;R0 SHOULD STILL EQUAL CONTENTS OF "SILN" 
.-CHECK R1 UNCHANGED 



;*******ft*ft*****TEST 2 - ERROR 3»"»»»»"« 
.Rl CHANGED 

;R1 SHOULD STILL EQUAL CONTENTS OF "SIAOR* 
.•CHECK R2 UNCHANGED 



;***************TEST 2 - ERROR 4»»»*»»»»»«**»« 

•R2 CHANGED 

;R2 SHOULD STILL EQUAL THE CONTENTS OF "S2LN" 
; CHECK R3 UNCHANGED 



;t**ft*ftftftft*ft***ftTEST 2 - ERROR 5**************« 

*R3 CHANGED 

)R3 SHOULD STILL EQUAL THE CONTENTS OF ••S2ADR" 
.•CHECK R4 UNCHANGED 



;**»************TEST 2 - ERROR 6************** 

*R4 CHANGED 

)R4 SHOULD STILL EQUAL THE CONTENTS OF "TILL" 
.•CHECK R5 UNCHANGED 



;***********tftftftTEST 2 - ERROR Z************** 

•RS CHANGED 

;RS SHOULD STILL EQUAL THE CONTENTS OF 'VSTAO' 
.•CHECK PSW AT TIME OF TRAP 



;tftft*ftttft*ftftt*ft*TEST 2 - ERROR ID******** 
*PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPFSW 
.•RESULTANT PSU IS IN RO 
.'CHECK ADDRESS OF TRAP 

.STORE BAD ADDRESS 
;**ft*****ft***ftft*TEST 2 - ERROR 11 
.TRAP ADDRESS ERROR 

.EXPECTED ADDRESS IS "T2+2" 

RESULTANT ADDRESS IS STORED AT 'IBDADR" 
.•CHECK SP RESTORATION 



.MAIN. 




30(1046) 


CVKAJB. 


Pn 22-JAN-82 


929 




06c '00 


930 


002006 


AOAAT^ 

02003 


931 


002012 


AAi / Ai 

001401 


932 


002014 


1 A/ Ai O 

104012 


933 






954 






935 






936 


00?0l6 


Ai "i^i ^ 

012f 16 


937 


002022 


A1 TTiLiL 
01 5f OO 


938 




AAAAA5 

OOOOOe 


939 






9A0 


002052 


ACC 
033 


9A1 


AAOAT^ 

0O203<: 


9A2 


AA'lATT 




943 




AAA 
000 


944 






945 






946 




AI 

0 1 Of Jf 


947 




0 lOf Jf 


948 






949 






950 






951 






952 






953 


AA5ACA 


oooou«» 


954 


AAOAC? 


00*1 30 r 


955 


AAOACA 


OUUW 1 


956 


AAOAX-A 

UU<:UoU 


OOCJ l*» 


957 


UO<:Uoc 


AAA/VII 
00000 1 


958 


AAOAXy 

002U64 


AA9T1 C 
OOi'jIS 


959 


aa^ajlx. 
002966 


AAOA/VI 
OOOWO 


960 




Ov*»» 0' 


961 


AAOA7Z 

0020 '4 


ni T7A7 
01 J' 0' 


962 


AA^I AO 

002102 


AI X7A.7 
01 Jf Of 


963 


002110 


012737 


964 


002116 


012737 


965 


002124 


004567 


TOO 


002130 


000217 


967 


002132 


004767 


TOO 


002136 


000277 


969 

07f\ 


00c l<»U 


A7Ancn 

Or 0U3U 


971 
97^ 
73 


OOe I4e 


104001 


V74 






975 


OUc I** 


lAA/*»0*i 


976 






977 


002U6 


OcUUO' 


978 


OOcl^O 






001401 


980 


002154 


104002 


981 






% 


0021 S6 


020167 


984 


002162 


001401 



>2-JAN-82 
i:49 



08: 



50 
T2 



PAGE 



3$: 

S1T2: 
S2T2: 

EN0T2: 



21 

TEST 

ADD 
C«P 
BEQ 
ERROR 



NOV 
NOV 
RTI 



.BYTE 

.BYTE 
.EVEN 

mv 
nov 



H 2 

•ADDN" WITH A POSITIVE LEADING SIGN SOURCE!, t VALID S0URCE2 
«4.R0 

R0,(MrSAVR6 
3S 

12 



SEQ 0020 



«ENDT2,(SP) 
a«EXPPSU,2(SP) 



55 
60 



TEMPI ,8#10 
TEMP2,a#12 



;*****t*tt***t**TEST 2 - ERROR 12»****« 
.-STACK POINTER WAS NOT RESTORED 
.EXPECTED SP VALUE IS STORED AT "SAVR6' 
.-ERRONEOUS SO VALUE IS AT 'BADR6" 
.-RESTORE SP 8 PSW 



; SOURCE 1 STRING 

.-MOST SIGNIFICANT DIGIT 

;S0URCE2 STRING 

.'MOST SIGNIFICANT DIGIT 



;RESTORE TIMEOUT VECTOR CONTENTS 



West 3 test "addn" with a negative leading sign sourcei, t valid source2 



012654 



012730 

000010 176610 

000012 176604 

002146 000010 

000340 000012 
012714 



t§T3: 



012622 



SCOPE 
JSR 



JSR 
MOV 
NOV 

nov 

NOV 
JSR 
.WORD 

JSR 

sec 



R5.NPREP 

S1T3 
1 

S2T3 
0 

PC.CLBUF 

aflO. TEMPI 

a#12.TEMP2 

fT3C0NT.a#10 

«340,a#l2 

R5.XPSW 

21^ 

PC«6ENR 



13: 



ADDN 

ERROR 1 



.•PREPARE ARGlfCNTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

.SOURCEI ADDRESS 

:S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

: DESTINATION LENGTH 

.•CLEAR BUFFER AREA 

;SAVE TIMEOUT TRAP VECTOR CONTENTS 

.•POINT TIMEOUT VECTOR TO TEST CONTINUATION 

.•STORE EXPECTED PSW VALUE 

.SET UP GENERAL REGISTERS 

.•EXECUTE "ADDN" INSTRUCTION 



BR ENDT3 



T3C0NT: 



64S: 



CMP 
BEQ 
ERROR 



CMP 
BEQ 



ROjSiLN 
2 



R1.S1ADR 
65i 



;**t*t******«***TEST 3 - ERROR 1****« 
.•DECIMAL INSTRUCTION DID NOT TRAP ON 
:A NEGATIVE LEADING SIGN S0URCE2 



.•CHECK RO UNCHANGED 

'•TEST 3 - ERROR 2« 



'RO CHANGED 
;-R0 SHOULD STILL EQUAL CONTENTS OF "SILN' 
.•CHECK R1 UNCHANGED 
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I 2 



TEST ••AODN" yiTH A NEGATIVE LEADING SIGN SOUflCEI. I VALID S0URCE2 



SEQ 0021 



985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 



002164 104003 



002166 
002172 
002174 



002176 
002202 
002204 



002206 
002212 
002214 



002216 
002222 
002224 



002226 
002226 
002232 
002236 
002242 
002244 



002246 
002252 
002?54 
002260 



002262 
002264 
002270 
002274 
002276 



002300 
002304 
002312 

002314 
002314 
002315 
002315 



65S: 



66$: 



67$: 



68$: 



69$: 



020267 176456 

001401 

104004 



020367 176450 

001401 

104005 



020467 176446 

001401 

104006 



020567 176434 

001401 

104007 



016600 000002 
042700 177400 
020067 176436 
OOUOl 
104010 



021627 002142 
001403 

011637 000522 
104011 



010600 

062700 000004 
020037 000702 
001401 
104012 



012716 002316 3$: 
013766 000700 000002 
000002 



1$: 



2$: 



053 
060 



S1T3: 
S2T3: 



ERROR 



BEO 
ERROR 



BEQ 
ERROR 



CMP 
BEQ 
ERROR 



BEQ 
ERROR 



nov 

BIC 
C«P 
BEQ 
ERROR 



C«P 
BEQ 
MOV 
ERROR 



MOV 
ADD 
C«P 
BEQ 
ERROR 



MOV 
MOV 
RTI 



.SrTE 

.ByTE 
.EVEN 



R2.S2LN 

66$ 

4 



R3.S2ADR 

67i 

5 



R4-FILL 

68i 

6 



R5.DSTAD 
69i 

7 



2(SP> .RO 

f1 77400, RO 

RO.EXPPSU 

1$ 

10 



(SP>.#T3*2 
2$ 

(SP) «8f$8DA0R 
11 



SP.RO 
f4,R0 
R0«i#SAVR6 
3$ 

12 



fENDT3,(SP) 
8fEXPPSU,2(SP) 



53 
60 



;****tt***tt***tTEST 3 - ERROR 
:R1 CHANGED 

;R1 SHOULD STILL EQUAL CONTENTS OF "S1A0R' 
; CHECK R2 UNCHANGED 



;****ttt***t****TEST 3 - ERROR 4***«««*»*****« 

*R2 CHANGED 

;R2 SHOULD STILL EQUAL THE CONTENTS Of ••S2LN" 
; CHECK R3 UNCHANGED 



;*****t***t*ttt*TEST 3 - ERROR 5*»************« 

;R3 CHANGED 

;R3 SHOULD STILL EQUAL THE CONTENTS OF '^AOR" 
: CHECK R4 UNCHANGED 



;***************TEST 3 - ERROR 6************** 

;R4 CHANGED ., 

;R4 SHOULD STILL EQUAL THE CONTENTS OF 'TILL" 
.-CHECK R5 UNCHANGED 



►TEST 3 - ERROR 7* 



;R5 CHANGED 

;R5 SHOULD STILL EQUAL THE CONTENTS OF 'DSTAD' 
.•CHECK PSU AT TIME OF TRAP 



;***************TEST 3 - ERROR 10**« 
'PSU ERROR 

•EXPECTED PSW IS STORED AT 'tXPPSW 
.•RESULTANT PSU IS IN RO 
.CHECK ADDRESS OF TRAP 



.•STORE BAD ADDRESS 

;ftt*«r***********TEST 3 - ERROR 11*******« 

;TRAP ADDRESS ERROR 

.EXPECTED ADDRESS IS ••T3+2" 

.•RESULTANT ADDRESS IS STORED AT 'IBDAOR" 

.-CHECK SP RESTORATION 



;******ftft«*****ftTEST 3 - ERROR 12****** 
.-STACK POINTER WAS NOT RESTORED ^, 
•EXPECTED SP VALUE IS STORED AT "SAVR6' 
•ERRONEOUS SO VALUE IS AT ^^DR6" 
.•RESTORE SP t PSU 



;S0URCE1 STRING 

:MOST SIGNIFICANT DIGIT 

:S0URCE2 STRING 

;MOST SIGNIFICANT DIGIT 



cXiJB.P?f''^^2l?jiN-52 oifZr*'' °'-''?3 ?EST "AOON" WITH A 'nE^Jm LEADING SIGN S0URCE1, t VALID S0URCE2 



SEQ 0022 



1041 

10A2 

10A3 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

10S1 

1052 

105J 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

108S 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 



002316 016737 176370 000010 
002324 016737 176364 000012 



ENDT3: 



MOV 
NOV 



TEMPI ,a«io 
TEnP2«»ri2 



.RESTORE TIMEOUT VECTOR CONTENTS 



002440 020167 176202 
002444 001401 
002446 104003 



002450 020267 176174 
002454 001401 
002456 104004 



002460 020367 176166 
002464 001401 
002466 104005 



002470 020467 176164 
002474 001401 
002476 104006 



;*TEST 4 TEST "ADDN" UITH S0URCE2 LENGTH « 0, I VALID S0URCE1 



002332 


000004 






002334 


004567 




002340 


000001 






00234;; 


002576 






002344 


000000 






002346 


002577 






002350 


000000 






002552 


WHfOf 




176326 


002556 


013767 


000010 


002 %4 


013767 


000012 


176322 


002372 


012737 


002430 


000010 




Ai "iyn 


000340 


nnnm o 

WW 1 c 




f\f\/ Cit7 


\J\CHJC 






AArtDI 7 

IWUcl f 






Wet 1 1 








002420 


000277 






002422 


076050 






002424 


104001 






002426 


000464 






002430 




176210 




002430 


020067 




002434 


001401 






002436 


104002 







tST4: 



T4: 



SCOPE 
JSR 



JSR 

MOV 

NOV 

NOV 

MOV 

JSR 

.WORD 

JSR 

sec 

AODN 



R5,NPREP 
1 

S1T4 
0 

S2T4 
0 

PC.CLBUF 

arlO. TEMPI 

a#12,TEMP2 

#T4CONT,»riO 

«340.a#12 

R5.XPSW 

21^ 

PCGENR 



ERROR 1 



BR ENDT4 



T4C0NT; 



64$: 



65$: 



66$: 



67$: 



CMP 
BEQ 
ERROR 



CMP 
BEO 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEO 
ERROR 



R0.S1LN 
64$ 

2 



RI.SIADR 



R2.S2LM 

C6i 

4 



R3,S2A0R 

67i 

5 



R4-FJLL 

68i 

6 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

:S0URCE1 ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

.-DESTINATION LENGTH 

: CLEAR BUFFER AREA 

;SAVE TIMEOUT TRAP VECTOR CONTENTS 

.•POINT TIMEOUT VECTOR TO TEST CONTINUATION 

.•STORE EXPECTED PSW VALUE 

; SET UP GENERAL REGISTERS 

.•EXECUTE "ADDN" INSTRUCTION 



;**«**tt**«*****TEST 4 - ERROR 1*»**« 
.-DECIMAL INSTRUCTION DID NOT TRAP ON 
;A ZERO S0URCE2 LENGTH 



.•CHECK RO UNCHANGED 

;**************tTEST 4 - ERROR 2************»** 

;R0 CHANGED .. 
;R0 SHOULD STILL EQUAL CONTENTS OF '^ILN" 
.•CHECK R1 UNCHANGED 

;***************TEST 4 - ERROR 3*»**********"* 

;R1 CHANGED 

:R1 SHOULD STILL EQUAL CONTENTS OF **S1ADR" 
.•CHECK R2 UNCHANGED 

;***fttt**********TEST 4 - ERROR 4******«*******« 
;R2 CHANGED .^^ 
;R2 SHOULD STILL EQUAL THE CONTENTS OF "S2LN" 
.CHECK R3 UNCHANGED 

;*************ft*TEST 4 - ERROR 5*****«********« 

;R3 CHANGED . , 

;R3 SHOULD STILL EQUAL THE CONTENTS OF ••S2ADR" 
.•CHECK R4 UNCHANGED 

:***********ft***TEST 4 - ERROR 6"«*****«*»«**« 
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1097 




1098 




1099 


002500 


1100 


002504 


1101 


002506 


1102 




1103 




1104 


002510 


1105 


002510 


1106 


002514 


1107 


002520 


1108 


002524 


1109 


002526 


1 no 




1111 




1112 




1113 


002530 


11U 


002534 


1115 


002536 


1116 


002542 


1117 




1118 




1119 




1120 


002544 


1121 


002546 


1122 


002552 


1123 


002556 


112A 


002560 


1125 




1126 




1127 




1128 


002562 


1129 


002566 


1130 


002574 


1131 




1132 


002576 


1133 


002576 


1134 


002577 


1135 


002577 


1136 




1137 




1138 


002600 


1139 


002606 


1140 




1141 




1142 




1143 




1144 




1145 


002614 


1146 


002616 


1147 


002622 


1148 


002624 


1149 


002626 


1150 


002630 


1151 


002632 


1152 


002634 



08:50 PAGE 24 
T4 TEST 



K 2 

•ADDN" WITH S0URCE2 LENGTH = 0, & VALID SOURCEI 



SEO 0023 



020567 
001401 
104007 



016600 
042700 
020067 
001401 
104010 



021627 
001403 
011637 
104011 



010600 
062700 
020037 
001401 
104012 



012716 
013766 
000002 



060 
060 



016737 
016737 



176152 



000002 
177400 
176154 



002424 
000522 



000004 
000702 



002600 
000700 



176106 
176102 



000004 

004567 012110 

000001 

002772 

000001 

002773 

000000 

004767 012164 



68$: 



69S: 



IS: 



2S: 



000002 



3S: 

S1T4: 
S2T4: 



CMP 
BEQ 
ERROR 



NOV 
BJC 
CMP 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



MOV 
ADD 
CMP 
BEQ 
ERROR 



MOV 
NOV 
RTJ 



.BYTE 

.BYTE 
.EVEN 



000010 ENDT4: NOV 
000012 NOV 



R5-0STAD 

69i 

7 



2(SP).R0 

4n77400,R0 

RO.EXPPSU 

1$ 

10 



(SP),#T4*2 
2$ 

(SP),a#S6DADR 

11 



SP,RO 
#4«R0 

R0«a#SAVR6 
3$ 

12 



#EN0T4,(SP) 
a#EXPPSU.2(SP) 



60 
60 



TEMPI .ario 
TEnP2.a«i2 



;R4 CHANGED 

;R4 SHOULD STILL EQUAL THE CONTENTS Of 'TILL' 
.-CHECK R5 UNCHANGED 



;***************TEST 4 - ERROR 7*************« 

;R5 CHANGED , . 

:R5 SHOULD STILL EQUAL THE CONTENTS OF '^STAO' 

; CHECK PSW AT TINE OF TRAP 



;************ft**TEST 4 - ERROR 10*** 
*PSW ERROR 

•EXPECTED PSW IS STORED AT 'TEXPRSW' 
.•RESULTANT PSU IS IN RO 
.•CHECK ADDRESS OF TRAP 



.•STORE BAD ADDRESS 
;***************TEST 4 - ERROR 11 
;TRAP ADDRESS ERROR 
.•EXPECTED ADDRESS IS •T4*2" 
.•RESULTANT ADDRESS IS STORED AT "S6DADR" 
.•CHECK SP RESTORATION 



;***************TEST 4 - ERROR 12»*****« 
.•STACK POINTER WAS NOT RESTORED 
.•EXPECTED SP VALUE IS STORED AT "SAVR6" 
;ERRONEOUS SO VALUE IS AT 'BADR6" 
.•RESTORE SP I PSW 



.SOURCEI STRING 

.•MOST SIGNIFICANT DIGIT 

;S0URCE2 STRING 

;NOST SIGNIFICANT DIGIT 



.RESTORE TIMEOUT VECTOR CONTENTS 



.••TEST 5 
t§T5r" 



TEST "ADDN" BY ADDING TWO ZEROES WITH ZERO DESTINATION LENGTH 



SCOPE 
JSR 



JSR 



R5.NPREP 

S1T5 
1 

S2T5 
0 

PC.CLBUF 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCEI LENGTH 

.SOURCEI ADDRESS 

:S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.DESTINATION LENGTH 

.•CLEAR BUFFER AREA 



.HAIN. MACYll 30(1046) 
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1153 
1154 

n55 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 



002640 
002644 
002646 
002652 
002654 
002656 

002660 
002664 
002672 
002700 
002702 



002704 
002704 
002706 
002710 

002712 
002714 
002716 

002720 
002722 
002724 

002726 
002730 
002732 

002734 
002740 
002742 

002744 
002750 
002752 

002754 
002760 
002762 
002766 



004567 
000204 
004767 
000277 
000244 
076050 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 

020567 
001401 
104007 

023706 
001403 
010637 
104010 



002770 

002770 000401 
002772 

002772 060 
002773 

002773 060 



22-JAN-82 08; 
08:49 

012200 

012106 



176012 

177400 176004 
000700 175776 



50 
T5 



PAGE 



175714 

175706 

000702 
000704 



64S: 

65S: 
66S: 
67S: 
68Sr 
69S: 
70S: 



25 

TEST 

JSR 

.WORD 

JSR 

sec 

CLZ 
ADDN 

HFPS 

BIC 

CMP 

BEO 

ERROR 



TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

CMP 
BEO 
ERROR 

C«P 
BEG 
ERROR 

CHP 
BEO 
MOV 
ERROR 



L 2 

•ADDN" BY ADDING TWO ZEROES WITH ZERO DESTINATION LENGTH 



SEO 0024 



RS.XPSW 
PC.GENR 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .STORE RESULTANT PSW 

#177400,CC0DES ;CLEAR UNUSED BITS 
iMTEXPPSW, CCODES .-CHECK PSU AGAINST EXPECTED VALUE 
64S ;BR. IF EQUAL 

1 ;****ft**********TEST 5 - ERROR 

*PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6' 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 



RO 

65S 

2 

R1 

66S 

3 

R2 
67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 

R5.DSTAD 

70i 

7 

afSAVR6.SP 
71$ 

SP.a«8A0R6 

10 



71$: 








8R 


TST6 


S1T5: 






.eriE 


60 


S2T5: 




60 




.SrTE 




.EVEN 





.-CHECK R0=0 

;***************TEST 5 - ERROR 2* 
:R0 SHOULD BE ZERO 
.-CHECK RUO 

;*********«*****TEST 5 - ERROR 3« 
:R1 SHOULD BE ZERO 
.•CHECK R2s0 



;ftftft**ftft*ftft*ftftftftTEST 5 - ERROR 4« 
;R2 SHOULD BE ZERO 
.CHECK R3s0 

;***ft***********TEST 5 ~ tRROR 5< 

;R3 SHOULD BE ZERO 

.-CHECK R4= DESTINATION LENGTH 



;*****«**«******TEST 5 - ERROR 6*»*»**« 
;R4 SHOULD STILL BE DESTINATJON LENGTH 
: CHECK R5 = DESTINATION ADDRESS 



•ft*ft*********ftft*TEST 5 ~ ERROR 7*********** 

•RS SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
;BR IF OK 
.-COPY BAD SP VALUE 

•***************TEST 5 - ERROR 10********** 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED SP IS STORED AT ;5AVR6;; 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;8R TO NEXT TEST 

.-SOURCEI STRING 

.MOST SIGNIFICANT DIGIT 

:S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 



.MAIN. 


HACY11 


30(1046) 


L vKAJo. 


P11 22-JAN-82 








1 






i<:n 


















12 IS 


00277A 


000004 


121 3 


002776 


004567 


1210 


003002 


000004 


121 7^ 


003004 


003176 


1 ')i a 
1218 


003006 


000002 


1 T1 O 

1219 


003010 


003202 


1220 


003012 


000002 


1 ni 

1221 


0030U 


004767 


1 in 
1 222 


003020 


004567 


1 

1223 


00302A 


000200 


122H 


003026 


004767 


1 ooc 
1223 


003032 


000277 


1226 


003034 


076050 


1 '507 
Mil 






1 no 
1229 


003036 


106767 


1 HQ 
122t 


003042 


042767 


1 HA 

1230 


003050 


023767 


1 231 


003056 


001401 


1 oio 
1 232 


003060 


104001 


1233 






1 "iXL 

123m 






1 OK 

1235 






123o 


003062 




1 077 


003062 


005700 


1 OTfi 

123o 


003064 


001401 


1 070 

123V 


003066 


1 0*002 


12*0 






12A1 


003070 


005701 


12A2 


003072 


001401 


12*3 
10// 


003074 


104003 


12*1* 

10/5 

12*5 


003076 


005702 


12*6 


003100 


001401 


10/7 
12*^ 


003102 


104004 


1 0/ fi 
12*0 






1 OZQ 
12*7 


003104 


005703 


1 ocn 
1250 


003106 


001401 


1 0C1 
1251 


003110 


104005 


1 oco 
1252 






1 0C7 

1253 


003112 


020467 


1 oc^ 
125* 


003116 


001401 


1 occ 
1255 


003120 


104006 


1 OCil 

l25o 






1 0<7 


003122 


020567 


1 OCA 

125a 


003126 


001401 


1 0<O 
1257 


003130 


104007 


1 OAA 
1200 






1 OiLI 

1201 


003132 


023706 




003136 


001403 


1263 


003140 


010637 


1264 


003144 


104010 
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T5 TEST 



H 2 

'AODN" BY ADDING TUO ZEROES WITH 2ER0 DESTINATION LENGTH 



SEO 0025 



.••TEST 6 

TST6: 



TEST "AODN" WITH POSITIVE OPERANDS, SRC1 LENGTH .6T. SRC2 LENGTH, DL = NO 



64S: 

65S: 
66S: 
67S: 
68S: 
69$: 
70$: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 

JSR 

sec 

ADDN 

HFPS 

Bit 

CMP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
NOV 
ERROR 



R5,NPREP 

S1T6 
2 

S2r6 
2 

PCCLBUF 

R5.XPSW 

206 

PCGENR 



CCODES 

#1 77400, CCODES 



.•PREPARE ARGUMENTS FOR INST^tUCTION TEST 

;S0URCE1 LENGTH 

.•SOURCEI ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

: DESTINATION LENGTH 

.CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



.•STORE RESULTANT PSW 
.CLEAR UNUSED BITS 



a#EXPPSU, CCODES .'CHECK PSU AGAINST EXPECTED VALUE 



64$ 

1 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
^8$ 

R4.DSTLN 

69i 

6 

R5.DSTAD 
70i 

7 

arsAVR6.sp 

71$ 

SP,a«8ADR6 
10 



;8R, IF EQUAL 
;**********«*ftft*TEiT 6 - ERROR I*** 
*PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 

.CHECK R0=0 



;***************TEST 6 - ERROR 2« 
;R0 SHOULD BE ZERO 
.-CHECK R1=0 

;*ftft************TEST 6 - ERROR 3« 
:R1 SHOULD BE ZERO 
: CHECK R2s0 

;************t**TEST 6 - ERROR 4< 
:R2 SHOULD BE ZERO 
.CHECK R3-0 

;*ft**t**>-****t**TEST 6 - ERROR 5« 

;R3 SHOULD BE ZERO 

.-CHECK R4s DESTINATION LENGTH 



;ftft*ftft*ft********TEST 6 - ERROR 6******* 
;R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 - DESTINATION ADDRESS 



;************t**TEST 6 - ERROR 7******»* 
;R5 SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE , 
'.••ft************rEST 6 - ERROR 10«*»***' 
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T6 TEST 



1265 

1266 

1267 

1268 

1269 

1270 

1271 

1?''2 

U.3 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 



003146 

003U6 
003152 
003156 
003162 
003164 
003166 



0031 70 
003172 
003174 
003176 
003176 
003177 
003200 
003201 
003202 
003202 
003203 
003204 
003204 
003205 



003206 
003210 
003214 
003216 
003220 
00322? 
003224 
003226 
003232 
003236 
003240 
003244 
C03246 
003250 

003252 
003256 
003264 
003272 
003?74 



012700 003204 

016701 175500 

016702 175472 
122021 
001401 

104011 



005302 
001373 
000404 

060 
060 
062 
061 



067 
070 

071 
071 



000004 
004567 
000002 
003412 
000004 
003414 
000004 
004767 
004567 
000210 
004767 
000277 
000250 
076050 

106767 
042767 
023767 
001401 
104001 



71$: 
72$: 

73$: 
S1T6: 

S2T6: 
AMS6: 



N 2 

'ADDN" WITH POSITIVE OPERANDS, SRC1 LENGTH .6T. SRC2 LENGTH, DL = NO. SEQ 0026 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT ••SAVR6" 
.ERRONEOUS SP VALUE IS AT 'BADR6" 



nov 
nov 

MOV 
CMP8 
BEQ 
ERROR 



DEC 
6NE 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



DSTAD.R1 

DSTLN.R2 

(R0)+,(R1)* 

73$ 

11 



R2 

72$ 

TST7 

60 
60 
62 
61 

67 
70 

71 
71 



.•CHECK ANSWER 

.■POINT RO TO EXPECTED ANSWER 
.POINT R1 TO RESULTANT ANSWER 
.•STORE ANSWER LENGTH IN R1 
.•COMPARE EACH DIGIT 
;BR IF EQUAL 

;***************TEST 6 - ERROR 11*t*»******** 
.•ERRONEOUS ANSWER 

;R0 CONTAINS THE PC^I OF THE EXPECTED DIGIT 

;R1 CONTAINS THE PC^I OF THE RESULTANT DIGIT 

.•DECREMENT ANSWER LENGTH 

;BR IF NOT FINISHED 

;BR TO NEXT TEST 

;S0URCE1 STRING 

;N0ST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

:M0ST SIGNIFICANT DIGIT 



.•EXPECTED ANSWER 



*************************************************************** 



011516 



011572 
011606 

011514 



175420 
177400 
000700 



;*TEST 7 TEST "ADDN" WITH NEGATIVE OPERANDS. S2L .GT. SIL. NO OVERFLOW 

• .#*•#***•***••♦♦••*♦••♦♦*••••**♦••••*•♦•♦*♦•••*•»••****•••••••** 

tST7: SCOPE 

JSR R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

.SOURCEI LENGTH 
:S0URCE1 ADDRESS 
;S0URCE2 LENGTH 
;$0URCE2 ADDRESS 
.•DESTINATION LENGTH 
.•CLEAR BUFFER AREA 



175412 
175404 



JSR 
JSR 
.WORD 
JSR 

sec 

CLN 
ADDN 

MFPS 
61 C 
CMP 
BEQ 
ERROR 



R5.NPREP 

S1T7 
4 

S2T7 
4 

PC.CLBUF 
R5.XPSW 
2l6 

PC.GENR 



CCODES 

f1 77400, CCODES 

afEXPPSW.CCODES 

64$ 

1 



.-SET UP GENERAL REGISTERS 

.-SET UP THE COMPLEMENT OF EXPECTED CC*S 



.STORE RESULTANT PSW 

.•CLEAR UNUSED BITS 

•CHECK PSW AGAINST EXPECTED VALUE 

;BR. IF EQUAL , , ^ 

;********ft**ft***TEST 7 - ERROR 1** 

;PSU ERROR 
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B 3 

08:50^ PAGE 28^^ ^^^^ NEGATIVE OPERANDS. S2L .6T. SU. NO OVERFLOW 



SEO 0027 



1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

13'5 

1376 



003276 
003276 
33300 



003. 
003302 

003504 
003306 
003310 

003312 
003314 
003316 

003320 
003322 
003324 

003326 
003332 
003334 

003336 
003342 
003344 

003346 
003352 
003354 
003360 



003362 

003362 
003366 
003372 
003376 
003400 
003402 



003404 
003406 
003410 
003412 
005412 
003413 
003414 
003414 
C03415 
003416 
0034!7 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 

020567 
001401 
104007 

023706 
001403 
010637 
104010 



012700 
016701 
016702 
122021 
001401 
104011 



005302 
001373 
000405 

063 
165 

060 
071 
066 
165 



175322 

175514 

000702 
000704 



64$: 

65$: 
66$: 
67$: 
68$: 
69$: 
70$: 



.EXPECTED PSW IS STORED AT "SAVR6' 
.•ERRONEOUS SP VALUE IS AT •BADR6" 



003420 
175264 
175256 



71$: 



72$: 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
NOV 
ERROR 



nov 

NOV 

NOV 

CNPB 

BEQ 

ERROR 



RO 
65$ 

2 

R1 
66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 

R5-DSTAD 

70i 

7 

arSAVR6.SP 
71$ 

SP.a«BADR6 

10 



f ANS7.ro 

DSTAD.R1 

DSTIN.R2 

(R0)*.(R1)* 

73$ 

11 



73$: 


DEC 


R2 




BNE 


72$ 




BR 


TST10 


S1T7: 




63 


.BYTE 




.BYTE 


165 


S2T7: 




60 




.BYTE 




.BYTE 


71 




.BYTE 


66 




.BYTE 


165 



.•CHECK R0=0 

;*************ttTEST 7 - ERROR 2» 
;R0 SHOULD BE ZERO 
.•CHECK RIsO 

;*ttttt*****t*ttTEST 7 - ERROR 3* 
:R1 SHOULD BE ZERO 
.•CHECK R2=0 

;***t**t*tt*ttt*TEST 7 - ERROR 4« 
:R2 SHOULD BE ZERO 
.•CHECK R3=0 

;***************TEST 7 - ERROR 5* 

:R3 SHOULD BE ZERO 

.•CHECK R4a DESTINATION LENGTH 



;********«******TEST 7 - ERROR 6******« 
;R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 s DESTINATION ADDRESS 



;*ft*************TEST 7 - ERROR 7**«*«**»»«»« 

:R5 SHOULD STILL BE DESTINATION ADDRESS 
•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

••*ft************TEST 7 - ERROR 10****»»**»»* 

; STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT ••SAVR6;; 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

: CHECK ANSWER 

.•POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
.•STORE ANSWER LENGTH IN R1 
.•COMPARE EACH DIGIT 
;Bft IF EQUAL , _ 

;****»»********tTEST 7 - ERROR 11 
'ERRONEOUS ANSWER 

;R0 CONTAINS m PC+1 OF THE EXPECTED DIGIT 

;R1 CONTAINS THf PC*1 OF THE RESULTANT DIGH 

.•DECREMENT ANSWEP LENGTH 

;BR IF NOT FINISHED 

;BR TO NEXT TEST 

;S0URCE1 STRING 

;MOST SIGNIFICANT DIGIT 

:S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 
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T7 TEST 



C 3 

•ADDN" WITH NEGATIVE OPERANDS, S2L .6T. SiL. NO OVERFLOW 



SEO 0028 



1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

13% 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

U52 



003420 
003420 
003421 

m 



003424 
00$426 
003432 
003434 
003436 
003440 
003442 
003444 
003450 
003454 
003456 
003462 
003464 
003466 

003470 
003474 
003502 
003510 
003512 



003514 
003514 
003516 
003520 

003522 
003524 
003526 

003530 
003532 
003534 

003536 
003540 
003542 

003544 
003550 
003552 



061 
060 
060 
160 



ANS7: 



000004 
004567 
000004 
003630 
000002 
003634 
000002 
004767 
004567 
000212 
004767 
000265 
000252 
076050 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.EVEN 



*********** 



61 
60 
60 
160 



.•EXPECTED ANSWER 

;MOST SIGNIFICANT DIGIT 



011300 



011354 
011370 

011276 



175202 
177400 
000700 



JiTEST 10 TEST "ADDN 

tSTlO: SCOPE 

JSR R5.NPREP 
4 

SITIO 

S2T10 
2 

PC.CLBUF 
R5.XPSU 
21^ 

PCGENR 



175174 
175166 



020467 175104 

001401 

104006 



64$: 

65$: 
66$: 
67$: 
68$: 



*************************************** 

WITH NEGATIVE OPERANDS, OVERFLOW 
*************************************** 

.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 
; SOURCE 1 LENGTH 



JSR 
JSR 
.WORD 
JSR 

♦SEZ'SEC 
♦CLNICLV 
ADDN 

«FPS 
BIG 
CHP 
BEQ 
ERROR 



:S0URCE1 ADDRESS 
;S0URCE2 LENGTH 
:S0URCE2 ADDRESS 
.-DESTINATION LENGTH 
.•CLEAR BUFFER AREA 



.-SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSU 

#177400. CCODES .-CLEAR UNUSED BITS 

MfEXPPSU. CCODES .-CHECK PSU AGAINST EXPECTED VALUE 

64$ .-BR. IF EQUAL 

1 ;****ftft*ft*******TEST 10 - ERROR 1*« 

'PSU ERROR 

•EXPECTED PSU IS STORED AT •'SAVR6;' 
.-ERRONEOUS SP VALUE IS AT '«ADR6" 

.-CHECK ROsO 

;***************TEST 10 - ERROR 2** 
:R0 SHOULD BE ZERO 
.-CHECK R1«0 

;***************TEST 10 - ERROR 3»« 
;R1 SHOULD BE ZERO 
.-CHECK H2'0 

;***ft*ft******o*TEST 10 - ERROR 4»* 
:R2 SHOULD BE ZERO 
.CHECK R3s0 

;***************TEST 10 - ERROR 5*« 
.-R3 SHOULD BE ZERO 
.-CHECK R4: DESTINATION LENGP! 



TST 


RO 


BEQ 


65$ 


ERROR 


2 


TST 


R1 


BEQ 


66$ 


ERROR 


3 


TST 


R2 


BEQ 


67$ 


ERROR 


4 


TST 


R3 


BEQ 


^8$ 


ERROR 




CMP 


R4.DSTLN 


BEQ 


69i 


ERROR 


6 



•***************TEST 10 - ERROR 6*****< 
;-R4 SHOULD STILL BE DESTINATION LENGTH 



.MAIN. HACY11 50(10^6) 22-JAN-82 
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D 3 

08; 50 PAGE 30 

no TEST "ADDN" WITH NEGATIVE OPERANDS, OVERFLOW 



SEO 0029 



U33 

U34 

U35 

K36 

U37 

U38 

1439 

1440 

1441 

U42 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

14S0 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1463 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

14S1 

1482 

1483 

1484 

1485 

1486 

1487 

1488 



003554 
003560 
003562 

003564 
003570 
003572 
003576 



020567 
001401 
104007 

023706 
00U03 
010637 
1 0^010 



003622 
003624 
003626 
003630 
003630 
003631 
003632 
003633 
003634 
003634 
003635 
003636 
003636 
003637 




005302 
001373 
000404 

060 
061 
062 
163 

065 
164 

067 
167 



000004 
004567 
000002 
004044 
000002 
004046 

1567 
J206 
004767 
000271 
000246 



175076 

000702 
000704 



69S: 
70$: 



003600 






003600 


012700 


003636 


003604 


016701 


175046 


003610 


016702 


175040 


003614 


122021 




003616 


001401 




003620 


104011 





71$: 
72$: 

73$: 
S1T10: 

S2T10: 
ANS10: 



C«P 
BEQ 
ERROR 

CHP 
BEO 
MOV 
ERROR 



nov 

NOV 

nov 

C«P8 

BEQ 

ERROR 



DEC 
BNE 
BR 

.arTE 

.BYTE 
.BVTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



R5.PSTA0 

70i 

7 

a#SAVR6,SP 
71$ 

SP,a«BADR6 

10 



#ANS10,R0 

OSTAD^RI 

DSTLN.R2 

(R0)*.<R1;* 

73$ 

11 



R2 

72$ 

TST11 

60 
61 
62 
163 

65 
164 

67 
167 



.CHECK R5 - DESTINATION ADDRESS 



• *****«*********TEST 10 * ERROR 7***********ft 

:R5 SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;************t**TEST 10 - ERROR 10*********** 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT "SAVR6" 
.-ERRONEOUS SP VALUE IS AT '^R6" 

.•CHECK ANSWER 

;P0INT RO TO EXPECTED ANSWER 
.'POINT R1 TO RESULTANT ANSWER 
.•STORE ANSWER LENGTH IN R1 
.•COMPARE EACH DIGIT 
;BR IF EQUAL 

;*ft****ftft*******TEST 10 - ERROR 11 ••**♦•••••• 

.•ERRONEOUS ANSWER 

:R0 CONTAINS THE P01 OF THE EXPECTED DIGIT 

;R1 CONTAINS THE PC^I OF THE RESULTANT DIGIT 

: DECREMENT ANSWER LENGTH 

;BR IF NOT FINISHED 

;BR TO NEXT TEST 

.SOURCEI STRING 

:nOST SIGNIFICANT DIGIT 



.•S0URCE2 STRING 

.•MOST SIGNIFICANT DIGIT 

.•EXPECTED ANSWER 

.MOST SIGNIFICANT DIGIT 



011064 



011140 
011154 

011062 



; ;*******•********•*****•***«****•*****•*******************•****• 

;*TEST 11 TEST "ADDN" WITH POSITIVE OPERANDS. S2LsSlL. OVERFLOW 

TST11: SCOPE 

JSR R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

.SOURCEI LENGTH 
.-SOURCEI ADDRESS 
;S0URCE2 LENGTH 
:S0URCE2 ADDRESS 
.•DESTINATION LENGTH 
.-CLEAR BUFFER AREA 



JSR 
JSR 
.WORD 
JSR 

♦SEN! SEC 
♦CLZ'CLV 



R5.NPREP 

S1T11 
2 

S2T11 
2 

PC.CLBUF 
RS.XPSW 
20^ 

PC.6ENR 



.-SET UP GENERAL REGISTERS 

.SET UP THE COMPLEMENT OF EXPECTED CCS 



.^IN. HACY11 30(1046) 22-JAN-82 
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08:50 PAGE 
Til 



U89 

K90 

U91 

U92 

U93 

U94 

U95 

H96 

U97 

U98 

H99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 



003702 076050 



003704 106767 174766 

003710 042767 177400 174760 

003716 023767 000700 174752 

003724 001401 

003726 104001 



003730 

003730 005700 

003732 001401 

003734 104002 

003736 005701 

003740 001401 

003742 104003 

003744 005702 

003746 001401 

003750 104004 

003752 005703 

003754 001401 

003756 104005 

003760 020467 174670 

003764 001401 

003766 104006 

003770 020567 174662 

003774 001401 

003776 104007 

004000 023706 000702 

004004 001403 

004006 010637 000704 

004012 104010 



004014 

004014 012700 004050 

004020 016701 174632 

004024 016702 174624 

004030 122021 

004032 001401 

004034 104011 



004036 00530 
004040 00137 
004042 000403 



64S: 

6SS: 
66S: 
67S: 
68$: 
69$: 
70$: 



71$: 



72$: 



73$: 



31 

TEST 

ADDN 

HFPS 

BIC 

CMP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 

CIV 
BEQ 

nov 

ERROR 



nov 
nov 
nov 
cnpe 

BEQ 
ERROR 



E 3 

"ADDN" WITH POSITIVE OPERANDS, S2L-S1L, OVERFLOW 



SEQ 0030 



DEC 
BNE 
BR 



CCCDES 

#1 77400, C CODES 



.•STORE RESULTANT PSW 
.-CLEAR UNUSED BITS 



»rEXPPSU.C CODES .-CHECK PSU AGAINST EXPECTED VALUE 
64$ :BR. IF EQUAL 

1 ***********TEST 11 - ERROR 1** 

'PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



RO 

65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 

68$ 

5 

R4.DSTLN 

69i 

6 

R5.DSTAD 

70i 

7 

a#SAVR6,SP 
71$ 

SP,a«8ADR6 
10 



#ANS11,R0 

DSTAD,R1 

DSTLN,R2 

(R0)*,(R1)* 

73$ 

11 



R2 
72$ 

TST12 



.•CHECK RO-0 

;***********«***TEST 11 - ERROR 2« 
;R0 SHOULD BE ZERO 
.•CHECK RIsO 

;***************TEST 11 - ERROR I* 
;R1 SHOULD BE ZERO 
.•CHECK R2-0 



;***************TEST 11 - ERROR 4« 
;R2 SHOULD BE ZERO 
; CHECK R3s0 

;***************TEST 11 - ERROR 5' 

;R3 SHOULD BE ZERO 

.CHECK R4s DESTINATION LENGTH 



;***************TEST 11 - ERROR 6»*»»*« 
:R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 - DESTINATION ADDRESS 



;***************TEST 11 - ERROR 7***»**"***« 

;R5 SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

;***************TEST 11 - ERROR 10**********' 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED SP IS STORED AT ;2AVR6 ' 
.-ERRONEOUS SP VALUE IS AT 'BA0R6" 

; CHECK ANSWER 

.-POINT RO TO EXPECTED ANSUER 
.-POINT R1 TO RESULTANT ANSUER 
; STORE ANSWER LENGTH IN R1 
; COMPARE EACH DIGIT 
.-BR IF EQUAL 

o.;;.;:^:;*.**TEST n - error n. 

.-ERRONEOUS ANSUER 

•RO CONTAINS THE PC*1 OF THE EXPECTED DIGIT 
•R1 CONTAINS THE PC*1 OF THE RESULTANT JIGIT 
.DECREHENT ANSUER LENGTH 
;BR IF NOT FINISHED 
;BR TO NEXT TEST 





HACYll 


30(1046) 


CVKAJB. 


P11 2 


2-JAN-82 


15A5 


004044 


A^ T 

063 


1546 


004044 


15A7 


004045 


Ay 

062 


1548 


004046 




1549 


004046 


A^ y 

066 


1550 


004047 


070 


1551 


004050 




1552 


AA / Af A 

004050 


A^ A 

060 


1553 


AA J A^ 4 

004051 


A^ A 

060 


1554 






1555 






1556 






1557 






1558 






1559 






1560 






1561 


004052 


AAAAA J 

000004 


1562 


004054 


AAJ ^ £. ^ 

004567 


1563 


004060 


AAAAA ^ 

000002 


1564 


AAJ A^ 1^ 

004062 


AAJ ^ 

004256 


1565 


004064 


AAAAA^ 

000002 


1566 


004066 


AAJ ^y A 

004260 


1567 


004070 


AAAAA 4 

000001 


1568 


004072 


AAJ ^ 

004767 


1569 


004076 


AA^ 9 

004567 


1570 


004102 


JVAA^4 ^ 

000212 


1571 


004104 


AA^ 9^ 7 

004767 


1572 


AA^ 4 4 A 

004110 


AAA^^C 

000265 


1573 


004112 


AAA'tf 

000252 


1574 


AAJ 4 4 4 

004114 


A9^ ACA 

076050 


1575 






1576 


AAJ 4 4^ 

004116 


4 A^ 9 

106767 


1577 


AAJ 4 'VA 

004122 


042767 


1578 


AAJ 4 9 A 

004130 


023767 


1579 


AAJ 4 

004136 


AA1 / A1 

001401 


1580 


004140 


4 A J AA4 

104001 


1581 






1582 






1583 






1584 


004142 


AAC^AA 

005700 


1585 


AAJ 4 J ^ 

004142 


1586 


004144 


AA4 J A4 

001401 


1587 


AAJ 4 ^ ^ 

004146 


4 A^ AA^ 

104002 


1588 






1589 


004150 


005/01 


1590 


AAJ 4 f% 

004152 


AA4 1 A4 

001401 


15^1 


J 4 f J 

004154 


4 A J AAY 

104003 


1592 






1593 


JU^J 4 f ^ 

004156 


AAC 7A^ 

005702 


1594 


004160 


AA4 J A4 

001401 


1595 


JU^J 4 ^ ^ 

004162 


4 Ai AA/ 

104004 


1596 






1597 


JU\ J 4 ^ J 

004164 


005703 




/V\/.1 Ail 




1599 


004170 


104005 


1600 







22-JAN-82 



08:50 PAGE 32 
Til TEST 



F 3 

"ADDN" UITH POSITIVE OPERANDS. S2L=S1L. OVERFLOW 



SEQ 0031 



S1T11: 
S2T11: 
ANS11: 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



63 
62 

66 

70 

60 
60 



: SOURCE 1 STRING 

.-MOST SIGNIFICANT DIGIT 

;S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 

.•EXPECTED ANSWER 



010652 



010726 
010742 

010650 



174554 
177400 
000700 



•West 12 test addn with negative operands. s2l-sil. overflow carry 
HtiJ?**""""" 



174546 
174540 



64$: 



65$: 



66$: 



67$: 



SCOPE 
JSR 



JS^ 
JSR 
.WORD 
JSR 

♦SEZISEC 
♦CLNICLV 
ADDN 

HfPS 
SIC 
C«P 
BEQ 
ERROR 



R5.NPREP 

S1T12 

S2T12 
1 

PC.CLBUF 
R5-XPSW 
2l5 

PC.6ENR 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 
; SOURCE 1 LENGTH 
; SOURCE 1 ADDRESS 
;S0URCE2 LENGTH 
;S0URCE2 ADDRESS 
.'DESTINATION LENGTH 
.•CLEAR BUFFER AREA 



.-SET UP GENERAL REGISTERS 

;SET UP THE CO(*»LEH£NT OF EXPECTED CCS 



CCODES 

#1 77400. CCODES 



.STORE RESULTANT PSW 
.•CLEAR UNUSED BITS 



afEXPPSW.CCODES .-CHECK PSW AGAINST EXPECTED VALUE 



64$ 

1 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 



RO 

65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 



;8R. IF EQUAL ^ _ . 

;***************TEST 12 - ERROR 1* 
•PSW ERROR 

•EXPECTED PSW IS STORED AT •'SAVR6; 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK ROsO 

;***************TEST 12 - ERROR 2* 
;R0 SHOULD BE ZERO 
.•CHECK R1-0 

;***************TEST 12 - ERROR 3* 
;R1 SHOULD BE ZERO 
.CHECK R2bO 

•***************TEST 12 - ERROR 4* 
:R2 SHOULD BE ZERO 
.CHECK R3=0 

;****ft**********TEST 12 - ERROR 5« 
:R3 SHOULD BE ZERO 



.MAIN. Pwryn 30(1046) 22-JAN-82 
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1601 

160? 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1633 

1624 

1625 

1626 

1657 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 



004172 
004176 
004200 

004202 
004206 
004210 

004212 
004216 
004220 
004224 



004226 

004226 
004232 
004236 
004242 
004244 
004246 



004250 
004252 
004254 
004256 
004256 
004257 
004260 
004260 
004261 
004262 
004262 



004264 
004266 
004272 
004274 
004276 
004300 
004302 
004304 
004310 
004314 
004316 
004322 



020467 174456 

001401 

104006 

020567 174450 

001401 

104007 

023706 000702 
001403 

010637 000704 
104010 



012700 004262 

016701 174420 

016702 174412 
122021 
001401 
104011 



005302 
001373 
000403 

066 
161 

064 
165 

166 

004264 



000004 

004567 010440 

000001 

004442 

000001 

004443 



_ i767 010514 
004567 010530 
000204 

004767 010436 
000277 



G 3 

50^^PAGE 33^^ ^^^^ ^^^^ NEGATIVE OPERANDS, S2L=S1L. OVERFLOW CARRY 

68S: C«P R4,DSTLN ; CHECK R4= DESTINATION LENGTH 

Bc Q 69s 

ERROR 6 TEST 12 - ERROR 6 

;R4 SHOULD STILL BE DESTINATION LENGTH 
69$: CMP R5.DSTAD : CHECK RS » DESTINATION ADDRESS 

ERROR 7° .••••.••.*****»*»TEST 12 - ERROR 7»» ••••• 

;R5 SHOULD STILL BE DESTINATION ADDRESS 
70S: CMP »rSAVR6,SP .VERIFY STACK POINTER IS RESTORED 
BEQ 71S ;BR IF OK 

HOV SP,a«ADR6 ;COPY BAD SP VALUE 

ERROR 10 .•••*»»»**»****»*TEST 12 - ERROR 10*********** 

.-STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT •'SAVR6;; 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

71«. 

'CHECK ANSVER 

MOV #ANS12.R0 -POINT RO TO EXPECTED ANSWER 

NOV DSTAD.R1 .'POINT R1 TO RESULTANT ANSWER 

NOV DSTLN.R2 .'STORE ANSWER LENGTH IN R1 

72%: CMPe (RO)^.(RI)^ .-COMPARE EACH DI6IT 

BEQ 73S .'BR IF EQUAL . _ 

ERROR 11 .•••••••••••••••TEST 12 - ERROR 11««*«««**«t 

-ERRONEOUS ANSWER 

;R0 CONTAINS THE PC*1 OF THE EXPECTED DIGIT 
:R1 CONTAINS THE PC^I OF THE RESULTANT DIGIT 
73S: DEC R2 .-DECREMENT ANSWER LENGTH 

BNE 72S :BR IF NOT FINISHED 

BR TST13 ;BR TO NEXT TEST 

S1T12: .-S0URCE1 STRING 

.BYTE 66 :nOST SIGNIFICANT DIGIT 

S2T12: '^^^^ ;S0URCE2 STRING 

.BYTE 64 :mST SIGNIFICANT DIGIT 

ANS12: '^^^^ .EXPECTED ANSWER 

.BYTE 166 

.EVEN 



StQ 0032 



•'•TEST 13 TEST "ADDN" WITH ♦SRCI t -SRC2, ZERO RESULT 



tST13: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

sec 



R5.NPREP 

S1T13 

S2T13 
0 

PC.CLBUF 
R5,XPSW 

PC.GENR 



.-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

.SOURCEI LENGTH 

;S0URCE1 ADDRESS 

.'S0URCE2 LENGTH 

.-S0URCE2 ADDRESS 

.-DESTINATION LENGTH 

.-CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

.-SET UP THE COHPLENENT OF EXPECTED CC'S 
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1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1675 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

vol 

1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 



004324 000244 
004326 076050 



0043 
0043L 
004342 

004350 001401 
004352 104001 



767 174342 
767 177400 174334 
767 000700 174326 



004354 

004354 005700 

004356 001401 

004360 104002 

004362 005701 

004364 001401 

004366 104003 

004370 005702 

004372 001401 

004374 104004 

004376 005703 

004400 001401 

004402 104005 

004404 020467 174244 

004410 001401 

004412 104006 

004414 020567 174236 

004420 001401 

004422 104007 

004424 023706 000702 

004430 001403 

004432 010637 000704 

004436 104010 



004440 

004440 000401 



64$: 

65$: 
66$: 
67$: 
68$: 
69$: 
70$: 



004442 
004442 
004443 
004443 



063 
163 



71$: 

S1T13: 

S2T13: 



CLZ 
ADDN 

HFPS 

BIC 

C«P 

BEQ 

ERROR 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEO 
ERROR 

CMP 
BEO 
ERROR 

CMP 
BEQ 
MOV 
ERROR 



BR 

.BYTE 

.eriE 

.EVEN 



H 3 

DDN" WITH t -SRC2. ZERO RESULT 



SEQ 0033 



CCODES .STORE RESULTANT PSU 

*177400.CC0DES ;CLEAR UNUSED BITS 
i#EXPPSU. CCODES .-CHECK PSU AGAINST EXPECTED VALUE 
64$ ;BR, IF EQUAL 

1 ';ti,*i,iiiiii*tttttttnSl 13 - ERROR 1»***»»****- 

'PSU ERROR 

•EXPECTED PSU IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

RO : CHECK ROsO 

65$ 

5 ;***************TEST 13 - ERROR 2********** 

:R0 SHOULD BE ZERO 
R1 .-CHECK RIsO 

66$ 

3 ;***************TEST 13 - ERROR 3********** 

;R1 SHOULD % ZERO 
R2 .-CHECK R2s0 

;t*t***********»TEST 13 - ERROR 4"»*»"**» 

;R2 SHOULD BE ZERO 
R3 .CHECK R3=0 

68$ 

5 ;***************TEST 13 - ERROR 5********** 

;R3 SHOULD BE ZERO 
R4,DSTLN .'CHECK R4= DESTINATION LENGTH 

69$ 

A •***************TEST 13 - ERROR 6«****«***« 

:R4 SHOULD STILL BE DESTINATION LENGTH 
R5.DSTAD .CHECK R5 - DESTINATION ADDRESS 

70i 

7 ;***************TEST 13 - ERROR /•••"•••t** 

:R5 SHOULD STILL BE DESTINATION ADDRESS 
a#SAVR6«SP .'VERIFY STACK POINTER IS RESTORED 

71$ ;BR IF OK 

SP.a#eA0R6 ;COPV BAD SP VALUE^^ ^ 

10 .•♦•••••••••••••TEST 13 - ERROR 10««******« 

.'STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT ;$AVR6;; 
•ERRONEOUS SP VALUE IS AT 'BADR6" 

TST14 ;BR TO NEXT TEST 

;S0URCE1 STRING 
63 .'MOST SIGNIFICANT DIGIT 

;S0URCE2 STRING 
163 ;MOST SIGNIFICANT DIGIT 



TEST ••ADON"WITH -SRC1 I ♦SRC2. SIL .LT. S2L. /S2/ .6T. /SI/ 
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1 71 X 

1 ' 1 J 




ruvw)4 








UU*i JO' 


oio?An 


1 71 ^ 




UWWj 




1 71 


\JVHHjH 


Uv*»07U 




1 71 7 




UwvVri 




1 71 A 




nA4A^x 

vv*iO J J 




1 71 O 




AlVlOO? 
vWvvc 




1 f cU 


\AJHHOH 


0047*^7 

vV** r Of 


V 1 V J 


1 7?1 


0A447n 


UV* JO' 


010350 

V 1 V J Jv 


1 ' cc 


(\r\LL7L 


fW>?1 rt 




1 yix 

1 / £3 


nn4^7<(. 

UVtH ' o 


VW»' Of 


nio?5<^ 

U 1 UC JO 






fMVl577 
WUc' ' 




1 75< 




UWc Jv 




1 ( CO 




U' Qv JV 




1 7?7 

lie' 








1 7?H 


l/V* 7 1 U 


10^7^7 

1 vQ' O' 


17416? 

1 ' 1 VC 


1 7?Q 




04?7A7 

v*f C ' D' 


1 77400 


1 7xn 




0?X767 

VC J' D' 


000700 


1 7T1 


\ISJHjj\J 


001401 




1 7 <? 


VAJ*»7 JC 


104001 




1 f J J 








1 7^ 








1 7XS 










\J\JH jjH 






1 7X7 


\J\JH JjH 


005 700 

Vv J ' vv 




1 7JA 

1 r 




001401 

W 1 f V < 




1 7X0 


Uv"t JH\J 


10400? 




1 7Ln 








1 741 




005701 




1 74? 

1 / He 


004^44 


001401 








10400? 




1744 








174S 




l/V J r VC 




17A6 


0<KS52 


001401 




17A7 


004554 


104004 




1 f HO 








1 740 


vVH J JO 


005703 




17S0 

1 f 


004 S60 

WH tfW 


001401 




1 7^1 
1 7^? 


WHJVC 


104005 

1 V*tWJ 




1 f JC 
1 » 7 J 


WHJOH 


0?0467 


174064 


1 7S4 

1 i JH 


004570 


001401 






WHjr C 






1 7S<^ 

1 r 3u 








17S7 


004574 


0P0567 


1 74056 




004 AOO 






1 7^9 


00460? 


104007 




17<U) 

1 r DV 








1 f V 1 


004604 


023706 


000702 




004610 


001403 




1763 


004612 


010637 


000704 


176« 


004616 


104010 




1765 








1766 








1767 








1768 


004620 







TST14: 



64S: 

65$: 
66$: 
67$: 
68$: 
69$: 
70$: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

sec 

CLN 
ADDN 

HfPS 

BK 

C«P 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

C«P 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 

C«P 
BEQ 
NOV 
ERROR 



71$: 



I 3 

•ADDN" WITH -SRC1 & ♦SRC?, SiL .LT. S2L. /S2/ .GT. /SI/ 



SEO 0034 



R5,NPREP 

SITU 
4 

S2T14 
2 

PC.CLBUf 

R5.XPSU 

2l6 

PC.GENR 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

; SOURCE 1 ADDRESS 

:S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



C CODES : STORE RESULTANT PSW 

#1 77400. CCODES : CLEAR UNUSED BITS 
»rEXPPSU,CCODES .-CHECK PSW AGAINST EXPECTED VALUE 



64$ 

1 



RO 

65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 

68$ 

5 

R4.DSTLN 

69i 

6 

R5.DSTA0 

70i 

7 

»rSAV!)6«SP 
71$ 

SP,a«BADR6 

10 



*BR IF EQUAL 
;ft**************T5ST 14 -• ERROR I*************** 
*PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK RO^O 

;*************ftftTESr 14 - ERROR 2**************» 

;R0 SHOULD BE ZERO 
.•CHECK R1«0 

;ftft*************TEST 14 - ERROR 3******»******** 

:R1 SHOULD BE ZERO 
.•CHECK r5*0 

;**ft***t********TEST 14 - ERROR 4***«*****«***** 

;R2 SHOULD BE ZERO 
.CHECK R3=0 

;*ft*****ft****ft**TEST 14 - ERROR 5***«*«********* 

;R3 SHOULD BE ZERO 

; CHECK R4s DESTINATION LENGTH 

;ft****ft»*ftft*****TEST 14 - ERROR 6*************** 
:R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 s DESTINATION ADDRESS 

;ftft*************TEST 14 - ERROR 7**'»************ 
;R5 SHOULD STILL BE DESTINATION ADDRESS 
.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;ft******ftftftfttft**TEST 14 - ERROR 10*****«**»' **♦*• 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



.HAIH. 
CVKAJ8 

1769 
1770 

1771 
177c 
1773 

ynu 

1775 
1776 
1777 
1778 
}779 
1780 
1781 
1782 
1783 
178A 
1/^85 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
T812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
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,P11 22-JAN-8? 



004620 
00462A 
004630 
004634 
004636 
00464C 



004642 
0046<.4 
004646 
004650 
004650 
00465^ 
004652 
004653 
004653 
004654 
004655 
004656 
004657 
004657 
004660 



004662 
004664 
004670 
004672 
004674 
004676 
004700 
004702 
004706 
004712 
004714 
004720 
004722 
004724 

004726 
004732 
004740 
004746 
004750 



004752 



012700 
016701 
016702 
122021 
001401 
104011 



005302 
001373 
000405 

067 
066 
064 

060 
070 
063 
171 

067 
165 

004662 



000004 
004567 
000004 
005066 
000003 
005072 
000002 
004767 
004567 
000206 
004767 
000271 
000246 
076050 

106767 
042767 
023767 
001401 
104001 



22-JAN-82 

08:49 



004657 
174026 
174020 



08:50 PAGE 
TU 



72$: 



36 

TEST 



J 3 

"ADDN" WITH -SRC1 t ♦SRC2. SiL .LT. S2L. /S2/ .GT. /SI/ 



SEO 0035 



73$: 
S1T14: 

S2T14: 
ANSI 4: 



nov 

MOV 

nov 

CNP8 

BEO 

ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



«ANS14,R0 

DSTA0.R1 

DSTLN.R2 

(R0)*.(R1)* 

73$ 

11 



R2 

72$ 

TST15 

67 
66 
64 

60 
70 

63 
171 

67 
165 



.•CHECK ANSWER 

; POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
; STORE ANSWER LENGTH IN R1 
.•COMPARE EACH DIGIT 
*BR IF EQUAL 

'•***************TEST 14 - ERROR 
.ERRONEOUS ANSWER 

;R0 CONTAINS THE PC*1 OF THE EXPECTED DIGIT 

:R1 CONTAINS THE PC*1 OF THE RESULTANT DIGIT 

.-DECREMENT ANSWER LENGTH 

:BR IF NOT FINISHED 

;BR TO NEXT TEST 

;S0URCE1 STRING 

.-MOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

;M0ST SIGNIFICANT DIGIT 



.•EXPECTED ANSWER 

;M0ST SIGNIFICANT DIGIT 



010042 



010116 
010132 

010040 



173744 
177400 
000700 



•West is test "aodn" with ♦srci t -src2, sil .gt. s2l. /s2 .gt. /si/, overflow 
tin?:**** * 



SCOPE 
JSR 



173736 
173730 



JSR 
JSR 
.WORD 
JSR 

♦SENISEC 
♦CLZICLV 
ADDN 

MFPS 
BJC 
C«P 
BEO 
ERROR 



RS.NPREP 
4 

S1T15 

«2T15 
2 

PCCLBUF 
R5.XPSW 
20^ 

PC^GENR 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 
; SOURCE 1 LENGTH 
.SOURCEI ADDRESS 
:S0URCE2 LENGTH 
:S0URCE2 ADDRESS 
.•DESTINATION LENGTH 
.-CLEAR BUFFER AREA 

.-SET UP GENERAL REGISTERS 

.-SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES 

#1 77400. CCODES 



64$: 



.-STORE RESULTANT PSW 

„ .-CLEAR UNUSED BITS 

arEXPPSW. CCODES .-check PSW AGAINST EXPECTED VALUE 
64$ ;BR. IF EQUAL 

1 ;**t********t***TEST 15 - ERROR I*************** 

-PSW ERROR 
l-EXPECTED PSW IS STORED AT ••SAVRe*" 
.•ERRONEOUS SP VALUE IS AT •^DR6" 
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005700 
00U01 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 173646 
001401 
104006 

020567 173640 
001401 
104007 

023706 000702 
001403 

010637 000704 
104010 



012700 005075 

016701 173610 

016702 173602 
122021 
001401 
104011 



005302 
001373 
000405 

060 
060 
067 
163 

061 
067 
063 

060 



CVKAJB. 


Pll 22 


1825 


004752 


1826 


004754 


1827 


004756 


1828 




1829 


004760 


1830 


004762 


1831 


004764 


1832 




1833 


004766 


1834 


004770 


1835 


004772 


1836 




1837 


004774 


1838 


004776 


1839 


005000 


1840 




1841 


005002 


1842 


005006 


1843 


005010 


1844 




1845 


OOi ;12 


1846 


005016 


1847 


005020 


1848 




1849 


005022 


1850 


005026 


1851 


005030 


1852 


005034 


1853 




1854 




1855 




1856 


005036 


1857 




1858 


005036 


1859 


005042 


1860 


005046 


1861 


005052 


1862 


005054 


1863 


005056 


1864 




1865 




1866 




1867 


005060 


1868 


005062 


1869 


005064 


1870 


005066 


1871 


005066 


1872 


005067 


1873 


005070 


1874 


005071 


1875 


005072 


1876 


005072 


1877 


005073 


1878 


005074 


1879 


005075 


1880 


005075 



K 3 

08:50^^PAGE 37^^ ^^^^ ^^^^^ ^ ^^^^^ OVERFLOW 

.CHECK R0=0 

TEST 15 - ERROR 2******** 

:R0 SHOULD BE ZERO 
.•CHECK R1=0 

;***************TEST 15 - ERROR 3**«"*******' 

;R1 SHOULD BE ZERO 
.•CHECK R2»0 

TEST 15 - ERROR 4""* ' 

:R2 SHOULD BE ZERO 
.•CHECK RjsO 

;***************TEST 15 - ERROR 5 •••••• 

;R3 SHOULD BE ZERO 
.-CHECK DESTINATION LENGTH 



SEQ 0036 



65S: 
66$: 
67S: 
68S: 
69S: 
70$: 



TST 


RO 


BEQ 


65$ 


CnnUn 


p 

c 


TST 


Rl 


BEQ 


66$ 


CDDflD 
CnnUn 


J 


TST 


R2 


BEQ 


67$ 


CnnUn 


H 


TST 


R3 


BEQ 


68$ 


cDonR 

CnnUn 


< 


CMP 


R4-DSTLN 


BEQ 


69$ 




w 


CMP 


R5.DSTAD 


BEQ 


70$ 


ERROR 


7 


CMP 


»rSAVR6«SP 


BEQ 


71$ 


MOV 


SP,»V8ADR6 


ERROR 


10 



;***************TEST 15 - ERROR 6*»»**« 
;R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 - DESTINATION ADDRESS 



71$: 
72$: 

73$: 

$1715: 

S2T15: 
ANSI 5: 



MOV 

MOV 

MOV 

CMPe 

BEQ 

ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 



#ANS15.R0 

DSTAD.R1 

DSTLN.R2 

(R0)+.(R1)* 

73$ 

11 



R2 

72$ 

TST16 

60 
60 
67 
163 

61 

63 



.BYTE 60 



;*********ft*****TEST 15 - ERROR 7**»*»***««*« 

:R5 SHOULD STILL BE DESTINATION ADDRESS 
.-VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

:***************TEST 15 - ERROR 10*********** 
•STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT "SAVR6; 
; ERRONEOUS SP VALUE IS AT 'BADR6" 

.-CHECK ANSWER 

.POINT RO TO EXPECTED ANSWER 
.-POINT Rl TO RESULTANT ANSWER 
.STORE ANSWER LENGTH IN Rl 
.-COMPARE EACH DIGIT 
;BR IF EQUAL 

;.***************TEST 15 - ERROR 11»»»**»***** 
.-ERRONEOUS ANSWER 

;R0 CONTAINS THE PC^I OF THE EXPECTED DIGIT 

;R1 CONTAINS THE PC«1 OF THE RESULTANT DIGIT 

.-DECREMENT ANSWER LENGTH 

;BR IF NOT FINISHED 

:BR TO NEXT TEST 

.-SOURCEI STRING 

.-MOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 

.-EXPECTED ANSWER 

.-MOST SIGNIFICANT DIGIT 
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1881 

1882 

1883 

1884 

188 «> 

1886 

1887 

1838 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

193? 

1933 

1934 

1935 

1936 



005076 



005100 
005102 
005106 
005110 
005112 
005114 
005116 
005120 
005124 
005130 
005132 
005136 
005140 
005142 

005144 
005150 
005156 
005164 
005166 



005170 
005170 
005172 
005174 

005176 
005200 
005202 

005204 
005206 
005210 

005212 
0052U 
005216 

005220 
005224 
005226 

005230 
005234 
005236 



060 
005100 



00C004 
004567 
000003 
005304 
000004 
005307 
000002 
00<767 
004567 
000206 
004767 
000271 
000246 
076050 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 

020567 
001401 
104007 



.BYTE 60 
.EVEN 



SEO 0037 



007624 



007700 
007714 

007622 



1/3526 

177400 173520 
000700 173512 



.••TEST 

• • 4 ^ ^ 4 1 

tST16: 



16 TEST ADDN WITH -SRCI ( ♦SRC2.S1L .LT. S2L. /SI/ .GT. /S2/.0VERFLOW 



173430 



173422 



64$: 

65$: 
66$: 
67$: 
68$: 
69$: 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

♦SEN .'SEC 
♦CLZ.'CLV 
ADDN 

MFPS 
BIC 
CMP 
BEO 
ERROR 



R5.NPREP 

S1T16 
4 

S2T16 
2 

PC.CLBUF 
R5.XPSW 
206 

PC.6ENR 



CCODES 

#1 77400. CCODES 
a#EXPPSW. CCODES 
64$ 
1 



TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

CMP 
BEO 
ERROR 

CMP 
BEO 
ERROR 



RO 

65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 
69i 

6 

R5.DSTAD 

70i 

7 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

: SOURCE 1 ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.•CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

.-SET UP THE COMPLEMENT OF EXPECTED CCS 



.•STORE RESULTANT PSW 

.CLEAR UNUSED BITS 

.•CHECK PSW AGAINST EXPECTED VALUE 

;BR. IF EQUAL 

.******«********TEST 16 - ERROR 1«****»»»******* 

;PSW ERROR _ 

; EXPECTED PSW IS STORED AT ••SAVR6" 

.•ERRONEOUS SP VALUE IS AT •BADR6" 

.•CHECK ROsO 

•***************TEST 16 - ERROR 2*************** 

;R0 SHOULD BE ZERO 
.•CHECK RIsO 

;***************TEST 16 - ERROR 3*************** 

:R1 SHOULD BE ZERO 
; CHECK R2'0 

;ft***********ft**TEST 16 - ERROR 4«************** 

:R2 SHOULD BE ZERO 
.•CHECK R3=0 

;***************TEST 16 - ERROR 5*************** 

:R3 SHOULD BE ZERO 

.CHECK R4* DESTINATION LENGTH 

;***************TEST 16 - ERROR 6**««*********** 

:R4 SHOULD STILL BE DESTINATION LENGTH 
.CHECK R5 - DESTINATION ADDRESS 



»TEST 16 - ERROR 7*»**»*******«** 
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T16 TEST ADDN WITH -SPCI I ♦SRC2.S1L .LT. S2L, /SI/ ,6T. 



/S2/, OVERFLOW 



SEO 0038 



1937 








1938 


005240 


023706 


000702 


1939 


005244 


001403 




1940 


005246 


010637 


0OC7C4 


1941 


005252 


104010 




1942 








1943 








1944 








1945 


003254 






1946 






005313 


1947 


005254 
005260 


012700 


1948 


016701 


173372 


1949 


005264 


016702 


173364 


1950 


005270 


122021 




1951 


005272 


001401 




1952 


005274 


104011 




1953 








1954 








1955 








1956 


005276 


005302 




1957 


005300 


001373 




1958 


005302 


000405 




1959 


005304 






1%0 


005304 


061 




1961 


005305 


067 




1962 


005306 


162 




1963 


005307 






1964 


005307 


060 




1965 


005310 


060 




1966 


005311 


067 




1967 


005312 


062 




1968 


005313 






1969 


005313 


060 




1970 


005314 


060 




1971 








1972 




005316 




1973 








1974 








1975 








1076 








1977 








1978 


005316 


000004 




1979 


005320 


004567 


007406 


1980 


005324 


000003 




1981 


005326 


005522 




1082 


005330 


000003 




1983 


005332 


005525 




1984 


005334 


000002 




1985 


005336 


004767 


007462 


1986 


005342 


004567 


007476 


1987 


005346 


000202 




1988 


005350 


004767 


007404 


1989 


005354 


000277 




1990 


005356 


000242 




1991 


005360 


076050 




1992 









70S: 



'1$: 
72$: 

73$: 
S1T16: 

S2T16: 
ANSI 6: 



TST17: 



CMP 
BEQ 
HOV 
ERROR 



MOV 

nov 

MOV 
CHPS 
BEQ 
ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

•BYTE 
.BYTE 

.EVEN 



a#SAVR6,SP 
71$ 

SP, airBADR6 

10 



/rANS16,R0 

0STAD,R1 

DSTLN,R2 

(R0)+,(R1)* 

73$ 

11 



R2 

72$ 

TST17 

61 
67 
162 

60 
60 
67 
62 

60 
60 



;R5 SHOULD STILL BE DESrjNATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
;8R IF OK 

.•COPY BAD SP VALUE 

;****ft*******«**TEST 16 - ERROR lO*********** 
.STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ••SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

.'CHECK ANSWER 

; POINT RO TO EXPECTED ANSWER 
;POJNT R1 TO RESULTANT ANSWER 
: STORE ANSWER LENGTH IN R1 
; COMPARE EACH DIGIT 
:BR IF EQUAL 

;*************ft*TEST 16 - ERROR 11 •*•••»*»••« 
'ERRONEOUS ANSWER 

•RO CONTAINS THE PC^l OF THE EXPECTED DIGIT 

:R1 CONTAINS THE PC^l OF THE RESULTANT DIGIT 

.•DECREMENT ANSWER LENGTH 

:BR IF NOT FINISHED 

;BR TO NEXT TEST 

: SOURCE 1 STRING 

.-HOST SIGNIFICANT DIGIT 



; SOURCE? STRING 

:NOST SIGNIFICANT DIGIT 



; EXPECTED ANSWER 

;MOST SIGNIFICANT DIGIT 



•TEST 17 



TEST ADDN WITH ♦SRCI ft -SRC2, SlLsS2L, /S1/ .6T./S2/,0VERFL0W 



SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

see 

CLV 
ADDN 



R5.NPREP 

S1T17 
3 

S2TU 
2 

PCCLBUF 

R5.XPSW 

20^ 

PCGENR 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

.-SOURCEl ADDRESS 

;S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.'CLEAR BUFFER AREA 



.-SET UP GENERAL REGISTERS 

:SET UP THE COMPLEMENT OF EXPECTED CCS 
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1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 



005362 106767 173310 

005366 042767 177400 173302 

005374 023767 000700 173274 

005402 001401 

005404 104001 



005406 

005406 005700 

005410 001401 

005412 104002 

005414 005701 

005416 001401 

005420 104003 

005422 005702 

005424 001401 

005426 104004 

005430 005703 

005432 001401 

005434 104005 

005436 020467 173212 

00S442 001401 

005444 104006 

005446 020567 173204 

005452 001401 

005454 104007 

005456 023706 000702 

005462 001403 

005464 010637 000704 

005470 104010 



005472 

005472 012700 005530 

005476 016701 173154 

005502 016702 173146 

005506 122021 

005510 001401 

005512 104011 



64$: 

65$: 
66$: 
67$: 
68$: 
69$: 
70$: 




71$: 
72$: 

73$: 
S1T17: 



40 
TEST 

HFPS 

BIC 

CWP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
MOV 
ERROR 



MOV 

NOV 

MOV 

CMP8 

BEQ 

ERROR 



K 3 

ADDN WITH ♦SRC1 I -SRC2. S1L=S2L. /SI/ .GT./S2/, OVERFLOW 



SEO 0039 



CCODES 

*1 77400. CCOOES 



; STORE RESULTANT PSW 
.CLEAR UNUSED BITS 



a#EXPPSW. CCODES -CHECK PSW AGAINST EXPECTED VALUE 



DEC 
BNE 
BR 



64$ 

1 



RO 

65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 

R5.DSTAD 
70i 

7 

a#SAVR6,SP 
71$ 

SP,a«8ADR6 

10 



/rANS17,R0 

DSTAD.RI 

DSTLN,R2 

(R0)+,(R1>+ 

73$ 

11 



72$ 

TST20 



'BR I F E QUAL 
)**i************TEST 17 - ERROR 1 ***•*•♦*•*****• 

'PSW ERROR 

i'EXPECTED PSW IS STORED AT "SMH6;' 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



.BYTE 63 



; CHECK RO-0 

.*TEST 17 - ERROR 2*************** 

;R0 SHOULD BE ZERO 
; CHECK R1-0 

;***************TEST 17 - ERROR 3*************** 

;R1 SHOULD BE ZERO 
.•CHECK R2=0 

;***************TEST 17 - ERROR 4*************** 

;R2 SHOULD BE ZERO 
.•CHECK R3=0 

;***»***********TEST 17 - ERROR S*************** 

;R3 SHOULD BE ZERO 

.•CHECK R4= DESTINATION LENGTH 

;***************TEST 17 - ERROR 6*************** 

:R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 « DESTINATION ADDRESS 

;ft**************TEST 17 - ERROR 7*************** 

:R5 SHOULD STILL BE DESTINATION ADDRESS 
.•VERIFY STACK POINTER IS RESTORED 
;8R IF OK 

.•COPY BAD SP VALUE 

;ft*************ftTEST 17 - ERROR lO*************** 
•STACK POINTER NOT RESTORED BY INSTRUCTION 
.'EXPECTED SP IS STORED AT ;5AVR6 
•ERRONEOUS SP VALUE IS AT '^R6" 

.•CHECK ANSWER 

.•POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
.•STORE ANSWER LENGTH IN Rl 
.•COMPARE EACH DIGIT 
'BR IF EQUAL 

}***************TEST 17 - ERROR II*************** 

:R0'^CONTA1NS*ThI%C*1 of the EXPECTED DIGIT 

;R1 CONTAINS THE PC+1 OF THE RESULTANT DIGIT 

.'DECREMENT ANSWER LENGTH 

;BR IF NOT FINISHED 

;BR TO NEXT TEST 

.SOURCEI STRING 

.MOST SIGNIFICANT DIGIT 
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2049 


005523 


065 


2050 


005524 


067 


2051 


005525 


060 


2052 


005525 


2053 


005526 


063 


205A 


005527 


165 


2055 


005530 




2056 


005530 


062 


2057 


005531 


062 


2058 






2059 






2060 






2061 






«:362 






2063 






206A 






2065 


005532 


000004 


2066 


005534 


004567 


2067 


005540 


000003 


2068 


005542 


005736 


2069 


005544 


A A A A A 9 

000003 


2070 


005546 


005741 


2071 


0O5S50 


000002 


2072 


005552 


004767 


2073 


005556 


004567 


2074 


00*5562 


000202 


2075 


005564 


AA t ^ 

004767 


2076 


005570 


A A A *\^^ 

000277 


2077 


005572 


000242 


2078 


005574 


076050 


2079 






2080 


005576 


106767 


2081 


005602 


042767 


2082 


005610 


025767 


2083 


005616 


001401 


2084 


OO5620 


104001 


2085 






2086 






2087 






2088 


005622 


A Ar ^A/% 

005700 


2089 


005622 


2090 


005624 


001401 


2091 


005626 


104002 


2092 
2093 


005630 


005701 


2094 


005632 


AA 4 / 

001401 


2095 


005634 


104003 


2096 
2097 


005636 


A AP 

005702 


2098 


005640 


001401 


2099 






2100 




005703 


2101 


005644 


2102 


005646 


001401 


2103 


005650 


104005 


2104 
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SEQ 0040 



S2T17: 



ANS17: 



.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



65 
67 

60 
63 
165 

62 
62 



;S0URCE2 STRING 

.•HOST SIGNIFICANT DIGIT 



.■EXPECTED ANSWER 

.-MOST SIGNIFICANT DIGIT 



•TEST 20 



TEST ADDN WITH POSITIVE OPERANDS, OVERFLOW, NO CARRY OUT OF OVERFLOW 



007172 



007246 
007262 

007170 



173074 
177400 
000700 



TST20: 



173066 
173060 



64$: 

65S: 
66S: 
67$; 



SCOPE 
JSR 



JSR 
JSR 
.WORD 

JSR 

sec 

CLV 
ADDN 

HFPS 

BIC 

C«P 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



R5,NPREP 

S1T20 
3 

S2T2j 
2 

PCCLBUF 

RS.XPSW 

20§ 

PCGENR 



.•PREPARE ARGUMENTS FOr. INSTRUCTION TEST 

;S0URCE1 LENGTH 

: SOURCE 1 ADDRESS 

.•S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.•CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSW 

#177400.CCODES ; CLEAR UNUSED BITS 
a#EXPPSW, CCODES .-CHECK PSW AGAINST EXPECTED VALUE 
64$ ;8R, IF EQUAL 

1 ;.**;*****ftft****ftTEST 20 - ERROR 1* 

-PSW ERROR 

:EXPECTED PSW IS STORED AT "SAVR6; 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 



RO 
65$ 

2 

R1 

66$ 

3 

R2 
67$ 

4 

R3 
68$ 

5 



.CHECK ROsQ 

;t**********t***TEST 20 - ERROR 2*********«**««« 

:R0 SHOULD BE ZERO 
.-CHECK R1=0 

;ft******ft*******TEST 20 - ERROR 3*********«****« 

:R1 SHOULD BE ZERO 
.CHECK R2=0 

;*ftft*****ftftft**ftftTEST 20 - ERROR 4««*««********** 

:R2 SHOULD BE ZERO 
; CHECK R3-0 

;*************t*TEST 20 - ERROR 5**************« 

:R3 SHOULD BE ZERO 
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T20 TEST ADDN WITH POSITIVE OPERANDS. OVERFLOW. NO CARRr OUT OF OVERFLOW 



SEO 0041 



2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

?157 

»158 

159 

160 



005652 
005656 
005660 

005662 
005666 
0OS670 

005672 
005676 
005700 
005704 



005706 

005706 
005712 
005716 
005722 
005724 
005726 



005730 
005732 
005734 
005736 
005736 
005737 
005740 
005741 
005741 
005742 
005743 
005744 
005744 
005745 



005746 
005750 
005754 
005756 
005764 
005766 
005774 
005776 
006002 



020467 172776 

001401 

104006 

020567 172770 

001401 

104007 

023706 000702 
001403 

010637 000704 
104010 



012700 005744 

016701 172740 

016702 172732 
122021 
001401 
104011 



005302 
001373 
000404 

070 
062 
064 

061 
070 
065 

060 
071 



68$: 
69$: 
70$: 



71$: 
72$: 

73$: 
S1T20: 

S2T20: 

ANS20: 



BEO 
ERROR 

CMP 
BEQ 
ERROR 

CMP 
BEQ 
NOV 
ERROR 



NOV 

NOV 

NOV 

CNP8 

BEQ 

ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



R4.DSTLN 

69i 

6 

R5.DSTAD 

70i 

7 

»rSAVR6«SP 
71$ 

SP,»rBADR6 

10 



«ANS20.R0 
DSTAD^RI 

OSJLNM 

(R0)*.(R1)* 

73$ 

11 



R2 

72$ 

TST21 

70 
62 
64 

61 
70 
65 

60 
71 



.•CHECK R4s DESTINATION LENGTH 

;***************TEST 20 - ERROR 6***<'**»******«* 

;R4 SHOULD STILL BE DESTINATION LENGTH 
; CHECK R5 - DESTINATION ADDRESS 

;*ft*************TEST 20 - ERROR 7**»*****»"«»** 

;R5 SHOULD STILL BE DESTINATION ADDRESS 
.•VERIFY STACK POINTER IS RESTORED 
:BR IF OK 

;COPr BAD SP VALUE 

;**tk************TEST 20 - ERROR 10*************** 
.STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT "SAVR6" 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK ANSWER 

;POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
.•STORE ANSWER LENGTH IN R1 
.CONPARE EACH DIGIT 
;BR IF EQUAL 

;***************TEST 20 - ERROR 11 •••*•••••••»♦•• 

.ERRONEOUS ANSWER 

;R0 CONTAINS THE PC*1 OF THE EXPECTED DIGIT 

.Rl CONTAINS THE PC^I OF THE RESULTANT DIGIT 

: DECREMENT ANSWER LENGTH 

;6R IF NOT FINISHED 

;BR TO NEXT TEST 

.-SOURCEI STRING 

;NOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

;M0ST SIGNIFICANT DIGIT 



.EXPECTED ANSWER 

:N0ST SIGNIFICANT DIGIT 



000004 

105777 172564 
100555 

026767 172566 
001007 

032767 000001 
001403 

005767 172572 
001142 



172700 
172612 



• 'A************************************************************** 

.-•TEST 21 TEST INTERRUPTABILITY OF "ADDN" 

fiT21: SCOPE 

TSTB aSWR .TEST BIT 7 OF SWR 

BNI TST22 .SKIP TO NEXT TEST IF SET 

CNP $TPS JCSR ;IS SLU USED FOR INTERRUPTS THE CONSOLE? 

BNE T21cdNT :BR. IF NOT ( PERFORN INTERRUPTABILITY TEST 

BIT #BITO.$ENV .IF YES. IS PROGRAN UNDER APT? 

BEQ T21C0NT :BR, IF NOT 

TST $PASS ;1F YES. CHECK IF NOT ON FIRST PASS 

BNE TST22 ;IF NOT. BR t SKIP TEST 
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2161 
216 
216 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
217? 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 



006004 
006004 
006010 
006012 
006014 
006016 
006020 
006022 
006026 
006034 
006042 
006046 
006052 
C06060 
006064 
006066 
006072 
006100 
006104 
006106 

006110 
006114 
006122 
006124 
006132 
006140 
006142 



006144 
006144 
006146 
006150 

006152 
006154 
006156 

006160 
006162 
006164 

006166 
006170 
006172 

006174 
006200 
006202 

006204 
006210 
006212 



004567 
000004 
006260 



006264 
000005 
004767 
012767 
012777 
005077 
004767 
013777 
004567 
000000 
106427 
052777 
004767 
000277 
076050 

106767 
032777 
001366 
042767 
023767 
001401 
104001 



006722 



006776 
006106 
015114 
172624 
007016 
000554 
006760 

000000 
000100 
006654 



172562 
000100 

177400 
000700 



50 PAGE 

T21 

T21C0NT: 



43 

TEST 



INTERRUPTABILITY OF "AODN* 



S£Q 0042 



JSR 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 172454 

001401 

104006 

020567 172446 

001401 

104007 



172640 
172626 



172606 
172564 

172542 

172544 
172536 



JSR 

NOV 

NOV 

CLR 

JSR 

NOV 

JSR 

.WORD 

NTPS 

BIS 

READDN: JSR 

sec 

ADDNPC: AODN 

NFPS 

BIT 

BNE 

BIC 

CNP 

BEQ 

ERROR 



64$: 

65$: 
66$: 
67$: 
68$: 
69$: 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CNP 
BEQ 
ERROR 

CNP 
BEQ 
ERROR 



R5,NPREP 
S1T21 

S2T21 

5 

PCCLBUF 

«AOONPC,PCI 

#INTR,aTVECT 

aTPSU 

PC-TDONE 

a«$NULL,aTBUF 

R5,XPSU 

0 

#0 

#100,aTCSR 
PC^GENR 



CCOOES 

#100,aTCSR 

READDN 

#177400,CC0DES 

a#EXPPSU,CCODES 

64$ 

1 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 

R5-DSTAD 

70i 

7 



.PREPARE AR6UNENTS FOR INSTRUCTION TEST 

; SOURCE 1 LENGTH 

; SOURCE 1 ADDRESS 

;S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.■DESTINATION LENGTH 

.•CLEAR BUFFER AREA 

.STORE PC OF TEST INSTRUCTION 

.■POINT TTY VECTOR TO INTERRUPT ROUTINE 

.-ALLOW INTERRUPTS AFTER TTY INTERRUPT 

;WAIT FOR SLU READY 

;SEND NULL CHARACTER 

.-STORE EXPECTED PSW 

;ALLOW INTERRUPTS 

.•ENABLE TTY INTERRUPTS 

;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



'STORE RESULTANT PSW 

•IF INTERRUPTS ARE DISABLED, INSTRUCTION WAS INTERRUPTED 

:BR t DO TEST AGAIN, IF INSTRUCTION WAS NOT INTERRUPTED 

.•CLEAR UNUSED BITS 

.•CHECK PSW AGAINST EXPECTED VALUE 

;8R, IF EQUAL 

;***t***********TEST 21 - ERROR 1*t«***«M»«M«* 

•PSW ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

: CHECK ROsO 

;**ft************TEST 21 - ERROR 2****«*»*«»*»**« 

;R0 SHOULD BE ZERO 
.•CHECK RIsO 

;**ft*ftft******t**TEST 21 - ERROR 3*»*****»**»«*«* 

:R1 SHOULD BE ZERO 
; CHECK R2=0 

;***************TEST 21 - ERROR 4************««* 

;R2 SHOULD BE ZERO 
.•CHECK R3s0 

;*********ft*****TEST 21 - ERROR 5*************** 

:R3 SHOULD BE ZERO 

: CHECK R4= DESTINATION LENGTH 



;***ft***********TEST 21 - ERROR 6»****< 
:R4 SHOULD STILL BE DESTINATION LENGTH 
.•CHECK R5 = DESTINATION ADDRESS 



;***************TEST 21 - ERROR 7*»****< 
;R5 SHOULD STILL BE DESTINATION ADDRESS 
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T21 TEST INTERRUPTABILITY OF 



2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

3266 

2267 

2268 

2269 

2270 

2271 

2272 



006214 
006220 
006222 
006226 



006230 

006230 
006234 
006240 
006244 
006246 
006250 



006252 
006254 
006256 
006260 
006260 
006261 
006262 
006263 
006264 
006264 
006265 
006266 
006267 
006270 
006270 
006271 
006272 
006273 
006274 



006276 
006304 



006310 
006312 
006316 
006320 
006322 
006324 
006326 
006330 
006334 
006340 



023706 000702 
001403 

010637 000704 
104010 



012700 006270 

016701 172416 

016702 172410 
122021 
001401 
104011 



005302 
001373 
000407 

061 
062 
063 
064 

065 
066 
067 
070 

060 
066 
071 
061 
062 

006276 

016777 172370 
106427 000200 



000004 

004567 006414 

000004 

006514 

000003 

006520 

000003 

004767 006470 
004567 006504 
000210 



70S: 



71$: 



72$: 



BEQ 
NOV 
ERROR 



NOV 

NOV 

NOV 

CNPB 

BEQ 

ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.EVEN 
172364 ENDT21: NOV 
NTPS 



73$: 
S1T21: 

S2T21 : 

ANS21 : 



a«SAVR6,SP 
71$ 

SP,a«8A0R6 

10 



#ANS2UR0 

DSTAD.RI 

DSTLN,R2 

(R0)*.(R1)* 

73$ 

11 



R2 

72$ 

ENDT21 

61 
62 
63 
64 

65 
66 
67 
70 

60 
66 
71 
61 
62 



TPSW,aTVECT 
#200 



•ADDN" 

.•VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

}COPY BAD SP VALUE 

;ft***ft*****ft****rEST 21 - ERROR 10*********«* 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT '2AVR6;; 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

; CHECK ANSWER 

.•POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
: STORE ANSWER LENGTH IN R1 
.•COMPARE EACH DIGIT 

;?!.i:.l»ii....I«T 2^ - ERROR 11 

.•ERRONEOUS ANSWER ^ 

;R0 CONTAINS THE PC^I OF THE EXPECTED DIGIT 

.•R1 CONTAINS THE PC^I OF THE RESULTANT DIGIT 

.•DECREMENT ANSWER lENGTH 

:BR IF NOT FINISHED 

;BR TO END OF THIS TEST 

;S0URCE1 STRING 

;nOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

.nOST SIGNIFICANT DIGIT 



SEQ 0043 



.EXPECTED ANSWER 

;NOST SIGNIFICANT DIGIT 



.••TEST 22 

tST22: SCOPE 
JSR 



JSR 
JSR 
.WORD 



TEST "SUBN" WITH POSITIVE OPERANDS. SRC1 .GT. SRC2 



R5.NPREP 
4 

S1T22 

S2T22 
3 

PC.CLBUF 

R5.XPSW 

2l6 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 

: SOURCE 1 LENGTH 

:S0URCE1 ADDRESS 

;S0URCE2 LENGTH 

;S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

; CLEAR BUFFER AREA 



.N- HA^'Ti 50(1046) 22-JAN-82 
Vk,Aje.Pr 22-JAN-82 08:49 



F 4 

08:50^^PAGE 45^^ "subn" WITH POSITIVE OPERANDS. SRCl .GT. 



SRC2 



SEO 0044 



2273 

?274 

?275 

2276 

2277 

?278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2511 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2327 
2328 



006342 004767 006412 JSR 

006546 000277 SCC 

006350 000250 CLN 

006352 076051 SUBN 

006354 106767 '72316 nfPS 

006360 042767 177400 172310 BIC 

006566 023767 000700 172302 CHP 

006374 001401 BEQ 

006376 104001 ERROR 



006400 64S: 

006400 005700 TST 

006402 001401 BEQ 

006404 104002 ERROR 

006406 005701 65$: TST 

006410 001401 BEQ 

006412 104003 ERROR 

006414 005702 66$: TST 

006416 001401 BEQ 

006420 104004 ERROR 

006422 005703 67$: TST 

006424 001401 BM 

006426 104005 ERROR 

006430 020467 172220 68$: CJJP 

006434 001401 BEQ 

006436 104006 ERROR 

006440 020567 172212 69$: CMP 

006444 001401 BM 

006446 104007 ERROR 

006450 023706 000702 70$: C«P 

006454 001403 BEQ 

006456 010637 000704 MOV 

006462 104010 ERROR 



006464 71$: 

006464 012700 006523 NOV 

006470 016701 172162 HOV 

006474 016702 1 72154 HOV 

006500 122021 72$: CMPB 

006502 001401 BM 

006504 104011 ERROR 



PC.GENR 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSU 

#1 77400. CCODES .CLEAR UNUSED BITS 
a«EXPPSU.CCODES .CHECK PSW AGAINST EXPECTED VALUE 
64$ :BR. IF EQUAL 

1 ;ft***ft**********TEST 22 - ERROR 1** 

'PSU ERROR 

•EXPECTED PSW IS STORED AT •'SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BA0R6" 



RO 

65$ 

2 

R1 
66$ 

3 

R2 
67$ 

4 

R3 
68$ 

5 

R4,DSTLN 

69i 

6 

RS.DSTAD 

70i 

7 

arSAVR6.SP 
71$ 

SP«a«BADR6 

10 



fANS22.R0 

DSTAD.RI 

0STLN.R2 

(R0)*.(R1)* 

73$ 

11 



.•CHECK ROsQ 

;***************TEST 22 - ERROR 2* 
:R0 SHOULD BE ZERO 
.-CHECK RUG 

;***************TEST 22 - ERROR 3« 
:R1 SHOULD BE ZERO 
.•CHECK R2*0 



^TEST 22 - ERROR 4< 



:R2 SHOULD BE ZERO 
.•CHECK R3sO 

;******ftftft******TEST 22 - ERROR 5* 

;R3 SHOULD BE ZERO 

.•CHECK R4s DESTINATION LENGTH 



;***************TESr 22 - ERROR 6»»*»*« 
;R4 SHOULD STILL BE DESTINATION LENGTH 
.CHECK R5 = DESTINATION ADDRESS 



;**«ft«ftft***ft****TEST 22 - ERROR 7***»**»****« 

;R5 SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPr BAD SP VALUE 

;tt*******ft*****TEST 22 - ERROR 10*»*»*»»»»»* 
.STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT :2AyR6 
•ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK ANSWER 

.POINT RO TO EXPECTED ANSWER 
.POINT R1 TO RESULTANT ANSWER 
.STORE ANSWER LENGTH IN R1 
.COMPARE EACH DIGIT 

;?!.U.ISJl....TeST !2 - ER«R ............ 

.ERRONEOUS ANSWER 

•RO CONTAINS THE PC^I OF THE EXPECTED DIGIT 
;R1 CONTAINS THE PC*1 OF THE RESULTANT DIGIT 



.nAiN 

CVKAJB.P11 



HACY11 30(1(K6) ^ ^ 
22-JAN-82 08:«9 
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22-JAN-82 08:50^^PA6E 46^^ ^^^^ posiTIVE OPERANDS. SRC1 .6T. SRC2 



2329 

2330 

2331 

2?32 

2533 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

25A1 

2342 

^543 

2344 

2345 

2346 

2547 

2348 

2349 

2350 

2551 

2552 

3355 

2354 

2555 

2556 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

237 

237 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

238^ 

2383 

2384 



006506 
006510 
006512 
006514 
006514 
006515 
006516 
006517 
006520 
006520 
006521 
006522 
006523 
006523 
006524 
006525 



006526 
006530 
006534 
006536 
006540 
006542 
006544 
006546 
006552 
006556 
006560 
006564 
006566 

006570 
006574 
006602 
006610 
006612 



0066U 
006614 
006616 
006620 

006622 
006624 
006626 

006630 
006632 
006634 



005302 
001373 
000405 

060 
071 
066 
062 

067 
065 
064 

062 
060 
170 



000004 
004567 
000003 
006730 
000004 
006733 
000003 
004767 
004567 
000200 
004767 
000277 
076051 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 



73$: 
S1T22: 

S2T22: 
ANS22: 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



R2 

72$ 

TST23 

60 
71 
66 
62 

67 
65 
64 

62 
60 
170 



DECREMENT ANSWER LENGTH 
BR IF NOT FINISHED 
BR TO NEXT TEST 
S0URCE1 STRING 
MOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

;MOST SIGNIFICANT DIGIT 



.•EXPECTED ANSWER 

:MOST SIGNIFICANT DIGIT 



••TEST 23 TEST "SUBN" WITH NEGATIVE OPERANDS, SRC1 .GTT. SRC2 



006176 



006252 
006266 

006174 



172102 
177400 
000700 



TST23: SCOPE 
JSR 



JSR 
JSR 
.WORD 
JSR 

sec 

SUBN 



RS.NPREP 

S1T23 

S2T23 
3 

PC.CLBUF 

R5.XPSW 

20d 

PCGENR 



PREPARE ARGUMENTS FOR INSTRUCTION TEST 

S0URCE1 LENGTH 

S0URCE1 ADDRESS 

S0URCE2 LENGTH 

S0URCE2 ADDRESS 

DESTINATION LENGTH 

CLEAR BUFFER AREA 



;SET UP GENERAL REGISTERS 

.SET UP THE COMPLEMENT OF EXPECTED CCS 



172074 
172066 



64$: 

65$: 
66$: 



MFPS 

BIC 

CMP 

BEO 

ERROR 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 



CCODES 

#177400, CCOOES 

aUTEXPPSW.CCODES 

64$ 

1 



RO 
65$ 

2 

R1 
66$ 

3 

R2 

67$ 

4 



STORE RESULTANT PSW 

CLEAR UNUSED BITS 

CHECK PSU AGAINST EXPECTED VALUE 

BR, IF EQUAL 

***************TEST 23 - ERROR 1* 
PSW ERROR 

EXPECTED PSW IS STORED AT ••SAVR6' 
ERRONEOUS SP VALUE IS AT 'BADR6" 

CHECK RO-0 

******ft********TEST 23 - ERROR 2« 
RO SHOULD BE ZERO 
CHECK RIsO 

•********ft*****TEST 23 - ERROR 3« 
R1 SHOULD BE ZERO 
CHECK R2'0 

ftftftft*ft*****ft***TEST 23 - ERROR 4< 



MAI"*. 




50(1046) 


22-JA/ 


VKAJB. 


Pn 22-JAN-82 08:49 


2J85 








2386 


006636 


005703 




2387 


006640 


001401 




2388 


006642 


104005 




2389 








2390 


006644 


020467 


« 9'%AA4 

172004 


2391 


0066S0 


001401 




2392 


006652 


104006 




2393 








239« 


006654 


020567 


1 71 776 


2395 


006660 


001401 




2396 


006662 


104007 




2397 








2398 


006664 


023706 


AAA9A*% 

000702 


2399 


006670 


001403 




2400 


006672 


010637 


AAA 9 A £ 

000704 


2401 


006676 


104010 




2402 








2403 








2404 








2405 


006700 






2406 








2407 


006700 


012700 


AA^ 7999 

006737 


2408 


006704 


A4 ^ 9A4 

016701 


4 94 9/ ^ 

171746 


2409 


006710 


016702 


4 94 9^ #\ 

1 71 740 


2410 


006714 


122021 




2411 


006716 


AA4 / A4 

001401 




2412 


006720 


4 A4 A4 4 

104011 




2413 








2414 








2415 








2416 


006722 


005302 




2417 


006724 


AA4 999 

001373 




2418 


006726 


AAA^ Af 

000405 




2419 


006730 






2420 


AA^ *#VA 

006/30 


A74 

071 




2421 


AA^ 

006731 


A^ ^ 

066 




2422 


AA^ 99^ 

006732 


162 




2423 


AA^ 999 

006733 






2424 


AA^ 

006733 


A^ A 

060 




2425 


006734 


A9 A 

070 




2426 


AA^ 

006735 


A^ V 

063 




2427 


006736 


4^4 

161 




2428 


AA^ 9 W 

006737 






2429 


006737 


061 




2430 


AA^ 9/ A 

006740 


063 




2431 


006741 


061 




2432 








2433 








2434 








2435 








2436 








i*37 








2438 


006742 






2439 


006744 




171570 


2440 


006750 


100556 





H 4 

08:50 PAGE 47 

T23 TEST "SUBN" WITH NEGATIVE OPERANDS, SRCI .GTT. SRC2 



SEQ 0046 



67$: 
68$: 
69$: 
70$: 



71$: 
72$: 

73$: 
S1T23: 

S2123: 
ANS23: 



TST 
6EQ 
ERROR 

CW> 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 

CMP 
BEQ 

nov 

ERROR 



MOV 

NOV 

NOV 

CNPB 

BEQ 

ERROR 



DEC 
6NE 
BR 

.BrTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



R3 
68$ 

5 

R4.DSTLM 

69i 

6 

R5,0STA0 
70i 

7 

a#SAVR6,SP 
71$ 

SP,a#BADR6 
10 



#ANS23,R0 

DSTAD.RI 

DSTLN«R2 

(R0>*.(R1)* 

73$ 

11 



R2 

72$ 

TST24 

71 

162 

60 
70 
63 
161 

61 
63 
61 



;R2 SHOULD BE ZERO 
.•CHECK RjsO 

;***************TEST 23 - ERROR S* 

;R3 SHOULD BE ZERO 

.•CHECK R4« DESTINATION LENGTH 



;**t*ftt********tTEST 23 - ERROR 6***»*« 
:R4 SHOULD STILL BE DESTINATION LENGTH 
.CHECK R5 s DESTINATION ADDRESS 



;t***ftt*t***tt*ftTEST 23 - ERROR 
;R5 SHOULD STILL BE DESTINATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

;***************TEST 23 - ERROR lO*********** 

.STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT ••SAVR6" 
.ERRONEOUS SP VALUE IS AT 'BADR6*' 

.•CHECK ANSWER 

.POINT RO TO EXPECTED ANSWER 
.•POINT R1 TO RESULTANT ANSWER 
.-STORE ANSWER LENGTH IN R1 
.COMPARE EACH DIGIT 
;BR IF EQUAL 

;***************TEST 23 - ERROR 11 •*••••••••« 

'ERRONEOUS ANSWER 

;R0 CONTAINS THE PC^I OF THE EXPECTED DIGIT 

;R1 CONTAINS THE PC^I OF THE RESULTANT DIGIT 

.•DECREMENT ANSWER LENGTH 

;BR IF NOT FINISHED 

;BR TO NEXT TEST 

:S0URCE1 STRING 

;M0ST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

.MOST SIGNIFICANT DIGIT 



.•EXPECTED ANSWER 

.MOST SIGNIFICANT DIGIT 



;*TESTJ4 

HTjjr** 



TEST INTERRUPTABILITY OF "SUBN" 



SCOPE 
TSTB 
BMI 



aswR 

TST25 



.TEST BIT 7 OF SWR 

.SKIP TO NEXT TEST IF SET 



.MAIN. HACYll 30(10A6) 
CVRAJ8.P11 22-JAN-82 



22-JAN-82 
08:49 



08: 



50 PAGE 
T24 



2441 

2442 

2443 

2444 

244S 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 



006752 
006760 
006762 
006770 
006772 
006776 
007000 
007000 
007004 
007006 
007010 
007012 
007014 
007016 
007022 
007030 
007036 
007042 
007046 
007054 
007060 
007062 
007066 
007074 
007100 
007102 
007104 

007106 
007112 
007120 
007122 
007130 
007136 
007140 



007142 
007142 
007144 
007146 

007150 
007152 
007154 

007156 
007160 
007162 

007164 
007166 
007170 



026767 
001007 
032767 
001403 
005767 
001143 

004567 
000004 
007256 
000004 
007262 
000005 
004767 
012767 
012777 
005077 
004767 
013777 
004567 
000010 
106427 
052777 
004767 
000277 
000250 
076051 

106767 
032777 
001365 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 



171572 
000001 
171576 

005726 



006002 
007104 
015114 
171630 
006022 
000554 
005764 

000000 
000100 
005660 



171564 
000100 

177400 
000700 



171704 
171616 



T24C0NT: 



48 
TEST 

CMP 
BNE 
BIT 
BEQ 
TST 
BNE 

"jSR 



I 4 

INTERRUPTA6ILITY OF "SUBN' 



SEO 004 ^ 



171644 
171632 



171612 
171570 



RE SUBN: 
SUBNPC: 



171544 

171546 
171540 



007172 020467 171456 



64S: 

65$: 
66S: 
67$: 
68$: 



JSR 

nov 
nov 

CLR 
JSR 

nov 

JSR 

.WORD 

HTPS 

BIS 

JSR 

sec 

CLN 
SUBN 

HFPS 

BIT 

BNE 

BIC 

CMP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 



$TPS,TCSR 

T24C0NT 

«BITO,$ENV 

T24C0NT 

$PASS 

TST25 

R5,NPREP 

S1T24 

S2T24 
5 

PC.CLBUF 

#SUBNPC,PCI 

#INTR,aTVECT 

aTPSU 

PC.TOONE 

3#$NULL,aTBUF 

R5.XPSU 

10 

#0 

#100.aTCSR 
PCGENR 



:IS SLU USED FOR INTERRUPTS THE CONSOLE? 
;BR, IF NOT t PERFORM INTERRUPTA8ILITY TEST 
;IF YES. IS PROGRAM UNDER APT? 
'BR IF NOT 

•IF'yES. CHECK IF NOT ON FIRST PASS 
: IF NOT, BR t SKIP TEST 

.PREPARE ARGUMENTS FOR INSTRUCTION TEST 

.SOURCEI LENGTH 

;S0URCE1 ADDRESS 

;S0URCE2 LENGTH 

:S0URCE2 ADDRESS 

.•DESTINATION LENGTH 

.•CLEAR BUFFER AREA 

.•STORE PC OF TEST INSTRUCTION 

;POINT TTY VECTOR TO INTERRUPT ROUTINE 

.•ALLOW INTERRUPTS AFTER TTY INTERRUPT 

.•WAIT FOR SLU READY 

;SEND NULL CHARACTER 

.STORE EXPECTED PSW 

.•ALLOW INTERRUPTS 

.ENABLE TTY INTERRUPTS 

.SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .STORE RESULTANT PSW 

flOO.aTCSR IF INTERRUPTS ARE DISABLED. INSTRUCTION WAS INTERRUPTED 

RESUBN :BR t DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 

#177400. CCODES ; CLEAR UNUSED BITS 
a#EXPPSW.CCODES .CHECK PSW AGAINST EXPECTED VALUE 



64$ 

1 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 

68$ 

5 

R4.DSTLN 



;BR. IF EQUAL 
;a*************ftTEST 24 - ERROR 1* 
•PSW ERROR 

•EXPECTED PSW IS STORED AT •'SAVR6; 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

.CHECK RO-O 

;***************TEST 24 - ERROR 2« 
;R0 SHOULD BE ZERO 
; CHECK R1=0 

;***************TEST 24 - ERROR 3* 
;R1 SHOULD BE ZERO 
.CHECK R2-0 

;ft****«k****t****TEST 24 - ERROR 4< 
:R2 SHOULD BE ZERO 
.CHECK R3=0 

;**tt*ft*******»*TEST 24 - ERROR S* 

;R3 SHOULD BE ZERO 

.•CHECK R4s DESTINATION LENGTH 



J 4 

.MAIN. MACYII 30(1046) 22;JAN-82 08:50 PAGE 49 ,^™,,p,.n,, nr ..cifi^.. 
CVKAJB.P11 22-JAN-82 08:49 T24 TEST INTERRUPTABILITT OF 5UBN 



SEO 00^8 



2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2515 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

?528 

2529 

2530 

2531 

2532 

2533 

2554 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 



007176 
007200 

007202 
007206 
007210 

007212 
007216 
007220 
007224 



007226 

007226 
007232 
007236 
007242 
007244 
007246 



007250 
007252 
007254 
007256 
007?56 
007257 
007260 
007261 
007262 
007262 
007263 
007264 
007265 
007266 
007266 
007267 
007270 
007271 
007272 



007274 
007302 



007306 
007310 
007314 



001401 
104006 

020567 171450 

001401 

104007 

023706 000702 
001403 

010637 000704 
104010 



012700 007266 

016701 171420 

016702 17141 2 
122021 
001401 
104011 



005302 
001373 
000407 

061 
062 
063 
064 

065 
066 
067 
170 

060 
066 
071 
061 
162 

007274 

016777 171372 
106427 000200 



000004 

004567 005416 
000003 



69$: 
70$: 



71$: 



72$: 



73$: 



S1T24; 



S2T24: 



ANS24: 



BEQ 
ERROR 

CW> 
BEQ 
ERROR 

CHP 
BEO 
NOV 
ERROR 



nov 
nov 
nov 

CMPB 

BEO 

ERROR 



DEC 
BNE 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.EVEN 
171366 ENDT24: MOV 
«TPS 



69$ 
6 

R5.DSTA0 

70i 

7 

arSAVR6,SP 
71$ 

SP«i«8ADR6 

10 



fANS24,R0 

0STAD,R1 

DSTLN,R2 

(R0)*.(R1)* 

73$ 

11 



R2 
72$ 

ENDT24 

61 
62 
63 
64 

65 
66 
67 
170 

60 
66 
71 
61 
162 



TPSW,8TVECT 
#200 



;***************TEST 24 - ERROR 6*""""*»*' 
:R4 SHOULD STILL BE DESTINATION LENGTH 
: CHECK R5 = DESTINATION ADDRESS 

••*********ft****TEST 24 - ERROR 7*********«** 

:R5 SHOULD STILL BE DESTiNATION ADDRESS 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

;***************TEST 24 - ERROR 10*********** 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
•EXPECTED SP IS STORED AT ;2AVR6 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

: CHECK ANSWER 

;POINT RO TO EXPECTED ANSWER 

; POINT R1 TO RESULTANT ANSWER 

: STORE ANSWER LENGTH IN R1 

:COnPARlc 5ACH DIGIT 

;BR IF EQUAL _ 

;**************tTEST 24 - ERROR 11 ♦♦••♦*••♦♦« 

•ERRONEOUS ANSWER 

;R0 CONTAINS THE PC*1 OF THE EXPECTED DIGIT 

;R1 CONTAINS THE PC«1 OF THE RESULTANT DIGIT 

.•DECREMENT ANSWER LENGTH 

.BR IF NOT FINISHED 

:BR TO END OF THIS TEST 

;S0URCE1 STRING 

:nOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

:M0ST SIGNIFICANT DIGIT 



.EXPECTED ANSWER 

;MOST SIGNIFICANT DIGIT 



•TEST 25 

tST25: SCOPE 
JSR 



TEST "CNPN" WITH ALL ZEROES IN BOTH SOURCE STRINGS 



R5.NPREP 
3 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 
; SOURCE 1 LENGTH 



Cv";i?8.Pn''''2l?jA2^82 oifZr"'' '^'V nSJ -CNPN" WITH ALL ZEROES IN BOTH SOURCE STRINGS 



2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 



007316 007460 

007320 000003 

007322 007463 

007324 000377 

007326 004567 005512 

007332 000204 

007334 004767 005420 

007340 000277 

007^.2 000244 

007344 076052 



007346 
007352 
007360 
007366 
007370 



007372 
007372 
007374 
007376 

007400 
007402 
007404 

007406 
007410 
007412 

007414 
007416 
007420 

007422 
007426 
007430 



007432 
007436 
007440 



007442 
007446 
007450 
007454 



007456 
007456 



106767 171324 

042767 177400 171316 

023767 000700 171310 

001401 

104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 171226 

001401 

104006 



020567 171220 

001401 

104007 



023706 000702 
001403 

010637 000704 
104010 



64$: 

65$: 
66$: 
67$: 
68$: 

69$: 

70$: 



000403 



71$: 



S1T25 .-SOURCEI ADDRESS 

3 ;S0URCE2 LENGTH 

S2T25 ;S0URCE2 ADDRESS 

377 .-STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED BV 
JSR R5,XPSU 
.WORD 204 

JSR PC.6ENR ;SET UP GENERAL REGISTERS ^ ^.^ 

sec ;SET UP THE COHPLEMENT Of EXPECTED CCS 
CLZ 

C«PN 

MFPS CCODES .-STORE RESULTANT PSU 

BIC #177400. CCODES .-CLEAR UNUSED BITS 

CnP a#EXPPSU, CCODES .-check PSW AGAINST EXPECTED VALUE 

BEQ 64$ :BR. IF EQUAL 

ERROR 1 ;*******««»tt»t*TEST 25 - ERROR 1************»** 

-PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

TST RO .-CHECK RO^O 

ERROR P ..•••••••••••••••TEST 25 - ERROR 2****»**.f"". 

:R0 SHOULD BE ZERO 
TST R1 ; CHECK R1*0 

BEQ 66$ 

ERROR 3 ...•••.**.*»..»»»TEST 25 - ERROR 3****"*"""" 

:R1 SHOULD BE ZERO 
TST R2 ; CHECK R2s0 

ERROR 4 ;»***»»*»*******TEST 25 - ERROR 4*************** 

.•R2 SHOULD BE ZERO 
TST R3 .-CHECK R3s0 

BEQ 68$ 

ERROR 5 ;********»******TEST 25 - ERROR 5*************** 

.•R3 SHOULD BE ZERO 
CMP R4.DSTLN .-CHECK R4 UNCHANGED 

BEQ 69$ ;BR IF OK 

ERROR 6 ;»»»*»**»*»****»TEST 25 - ERROR 6*************** 

.■R4 CHANGED .. 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 

CMP RS.DSTAD .-CHECK R5 UNCHANGED 

BEQ 70$ 

ERROR 7 ;************»*»TEST 25 - ERROR 7«************** 

;R5 CHANGED 

.-R5 SHOULD STILL EQUAL CONTENTS OF •T)STAD" 
CMP arSAVR6.SP .-VERIFY STACK POINTER IS RESTORED 

BEQ 71$ ;BR IF OK 

MOV SP.arBADR6 .-COPY BAD SP VALUE ^ 

ERROR 10 ;***************TEST 25 - ERROR 10*************** 

•STACK POINTER NOT RESTORED BY INSTRUCTION 
;EXPECTED SP IS STORED AT .5AVR6 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

BR TST26 :BR TO NEXT TEST 



SEQ 0049 



tUPN" IN 



CVKAJR 

2609 
2610 
2611 
2612 
2613 
26U 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
262A 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
S63 
^664 



RACY11 30(1046) 
.PM 22-JAN-82 



'2-JAN-82 

:49 



007460 
007460 
007461 
007462 
007463 
007463 
007464 
007465 



060 
060 
060 

060 
060 
060 



007466 
007470 
007474 
007476 
007500 
007502 
007504 
007506 
007512 
007514 
007520 
007522 



000004 
004567 
000004 
007640 
000004 
007644 
000377 
004567 
000204 
004767 
000277 
000244 



007524 076052 



007526 
007532 
007540 
007546 
007550 



J07552 
007552 
007554 
007556 

007560 
007562 
007564 

007566 
007570 
007572 

007574 
007576 
007600 



106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 



06:50 PAGE 
T25 

S1T25: 



S2T25: 



51 

TEST 



L 4 

•CIVH" WITH ALL ZEROES IN BOTH SOURCE STRINGS 



Sfi 0050 



.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



60 
60 
60 

60 
60 
60 



.SOURCEI STRING 

.•MOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

.-HOST SIGNIFICANT DIGIT 



*TEST 26 TEST "CHPN" WITH SRC1 * SRC2 



005236 



005332 
005240 



171144 
177400 
000700 



TST26: 



171136 
171130 



007602 020467 171046 



64S: 

65S: 
66S: 
67S: 
68S: 



SCOPE 
JSR 



JSR 

.UORD 

JSR 

sec 

CLZ 

CnPN 

HFPS 

BIC 

CHP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 



R5,NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

4 .-SOURCEI LENGTH 

Sir26 .-SOURCEI ADDRESS 

4 :S0URCE2 LENGTH 

S2T26 ;S0URCE2 ADDRESS 

377 -STORE NON-ZERO VALUE TO TEST R4 LiNAFFECTED BY "CMPN" IN 

RS.XPSW 

204 

PC.GENR .-SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES ; STORE RESULTANT PSW 

#177400, CCODES ;CLEAR UNUSED BITS 
arEXPPSW. CCODES ; check PSy AGAINST EXPECTED VALUE 



64S 

1 



RO 
65S 

2 

R1 

66S 

3 

R2 

67$ 

4 

R3 
68S 

5 



R4.rfSTLN 



.-BR, IF EQUAL 
;***************TEST 26 - ERROR I*************** 
*PSU ERROR 

•EXPECTED PSW IS STORED AT •'SAVR6;' 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK RQsO 

;t*»»***»»»»**ttTEST 26 - ERROR 2*»************* 

;R0 SHOULD BE ZERO 
.•CHECK R1=0 

;*********ft*ft***TEST 26 - ERROR 3**********»**** 

;R1 SHOULD BE ZERO 
.•CHECK R2=0 

;***************TEST 26 - ERROR 4***»*********** 

:R2 SHOULD BE ZERO 
.•CHECK R3=0 

;***************TEST 26 - ERROR 5«**********»**» 
;R3 SHOULD BE ZERO 
.•CHECK R4 UNCHANGED 



I 



HAIN. fV.CYll 30(1046) 22-JAN-82 
CVKAjB.Pn 22-JAN-82 08; 49 



171040 



2665 


007606 


001401 


2666 


007610 


104006 


2667 






2668 






2669 


007612 


020567 


2670 


007616 


001401 


2671 


007620 


104007 


2672 






2573 






2674 


007622 


023706 


2675 


007626 


001403 


2676 


007630 


010637 


2677 


007634 


104010 


2678 






2679 






2680 






2681 


007636 




2682 


007636 


000404 


2683 


007640 




2684 


007640 


071 


2685 


007641 


066 


2686 


007642 


062 


< 2687 


007643 


063 


2688 


007644 




2689 


007644 


071 


2690 


007645 


066 


2691 


007646 


062 


2692 


007647 


063 


2693 






2694 






2695 






2696 






2697 






2698 






2699 
2700 






007650 


000004 


2701 


007652 


004567 


2702 


007656 


000004 


2703 


007660 


010020 


2704 


007662 


000004 


2705 


007664 


010024 


2706 


007666 


000377 


2707 


007670 


004567 


2708 


007674 


000200 


2709 


007676 


004767 


2710 


007702 


000277 


2711 






2712 


007704 


076052 


2" 13 






2714 


007706 


106767 


2715 


007712 


042767 


2716 


007720 


023767 


2717 


007726 


00U01 


2718 


007730 


104001 


2719 






2720 







08:50 PAGE 
T26 



69$: 



52 

TEST 



■CMPN" WITH SRC1 = SRC2 



SEQ 0051 



6EQ 69$ 
ERROR 6 



000702 
000704 



70$: 



71$: 
S1T26: 



S2T26: 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.EVEN 



R5.0STAD 

70i 

7 



»rSAVR6,SP 
71$ 

SP,a4fBADR6 
10 



TST27 

71 
66 
62 
63 

71 
66 
62 
63 



;8R If OK 

;***************TEST 26 - ERROR 6**»**»*" 
;R4 CHANGED 

;R4 SHOULD STILL EQUAL CONTENTS Of 'TILL" 
; CHECK R5 UNCHANGED 



;***ft***********TEST 26 - ERROR 7********»» 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAD" 
: VERIFY STACK POINTER IS RESTORED 
*BR IF CK 

;COPY BAD SP VALUE 

;***************TEST 26 - ERROR 10*******»« 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ••SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

:BR TO NEXT TEST 

.-SOURCEI STRING 

;MOST SIGNIFICANT DIGIT 



;S0URCE2 finiNG 

;NOST SIGNIFICANT DIGIT 



• **************************************************************** 

•'•TEST 27 TEST "CMPN" WITH IDENTICAL NON-ZERO MAGNITUDES. NEGATIVE S0URCE2, POSITI 



005054 



005150 
005056 



170764 
177400 
000700 



TST27: 



170756 
170750 



SCOPE 
JSR 



JSR 

.UORD 

JSR 

sec 

CMPN 

MFPS 

BIC 

CMP 

BEQ 

ERROR 



R5,NPREP .PREPARE ARGUMENTS FOR INSTRUCTION TEST 

4 .-SOURCEI LENGTH 

Sir27 .-SOURCEI ADDRESS 

4 ;S0URCE2 LENGTH 

S2T27 ;S0URCE2 ADDRESS ^. 

377 -STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'XHPN" IN 

R5.XPSW 

206 

PCGENR .-SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSU 

#177400. CCODES .-CLEAR UNUSED BITS 
ftTEXPPSU.CCODES ;CHECK PSU AGAINST EXPECTED VALUE 
64$ :BR, IF EQUAL 

1 ;***************TEST 27 - ERROR 1** 

*PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 



L 



.KAIN. NACY11 50(10<.6) 



005700 
00U01 
104002 

005701 
00U01 
104003 

005702 
00H01 
104004 

005703 
001401 
104005 

020467 
001401 
104006 



C\/KAJB.P11 22 


2721 




2722 


007732 


2723 


007732 


2724 


007734 


2/25 


007736 


2726 




2727 


007740 


272S 


007742 


2729 


007744 


2730 




2731 


007746 


2732 


007750 


2733 


007752 


2734 




2735 


007754 


2736 


007756 


2717 


007760 


2738 




2739 


007762 


2740 


007766 


2741 


007770 


2742 




2743 




2744 


007772 


2745 


007776 


2746 


010000 


2747 




2748 




2749 


A 4 A A A 

010002 


2750 


A 4 A A A ^ 

01 0006 


2751 


A 4 A A 4 A 

010010 


2752 


010014 


2753 




2754 




2755 




2756 


010016 


2757 


010016 


2758 


A 4 ^ A A 

010020 


2759 


010020 


2760 


010021 


2761 


010022 


2762 


C10023 


2763 


010024 


2764 


010024 


2765 


A « A 

010025 


2766 


A 4 AA^^ 

010026 


2767 


010027 


2768 




2769 




2770 




2771 












.77^, 




2775 


010030 


2776 


010032 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



000404 

071 
067 
065 
063 

071 
067 
065 
163 



170666 

170660 

000702 
000704 



08:50 PAGE 
T27 



64$: 

65$: 
66$: 
67$: 
68$: 



53 
TEST 



69$: 



70$: 



71$: 
S1T27: 

S2T27: 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
NOV 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
•BYTE 
.BYTE 
.BYTE 

.EVEN 



N 4 

'CNPN" WITH IDENTICAL NON-ZERO NA6NITUDES. NEGATIVE S0URCE2, POSITIV SEQ 0052 

.ERRONEOUS SP VALUE IS AT •BADR6" 
.•CHECK R0=0 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 



R5,DSTAD 
70i 

7 



»rSAVR6,SP 
71$ 

SP,a«BADR6 

10 



TST30 

71 

65 
63 

71 
67 

65, 
163 



..•*»*»*»»»***»»*TEST 27 - ERROR 2* 
;R0 SHOULD BE ZERO 
.•CHECK R1=0 

;**«***********«TEST 27 - ERROR 3« 
;R1 SHOULD BE ZERO 
.-CHECK R2-0 

;***************TEST 27 - ERROR 4< 
:R2 SHOULD BE ZERO 
.•CHECK R3=0 



;***************TEST 27 - ERROR 5***** ••••• 

;R3 SHOULD BE ZERO 
.-CHECK R4 UNCHANGED 
;BR IF OK 

;***************TEST 27 - ERROR 6************* <• 

;R4 CHANGED .. 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
.-CHECK R5 UNCHANGED 

;***************TEST 27 - ERROR 7*«*«*««**«««*** 

;R5 CHANGED 

:R5 SHOULD STILL EQUAL CONTENTS OF 't>STAD" 
.-VERIFY STACK POINTER IS RESTORED 
-Bft IF OK 

•COPY BAD SP VALUE 

;***************TEST 27 - ERROR 10*************** 
.-STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED SP IS STORED AT :$AVR6 
.-ERRONEOUS SP VALUE IS AT 'BA0R6" 

;BR TO NEXT TEST 

: SOURCE 1 STRING 

:NOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

:mST SIGNIFICANT DIGIT 



004674 



• • »•»»•♦♦••»••*****•»***•••*•***•***♦**•**»***•*•*♦***♦*♦♦**♦♦♦•* 

:*TEST 30 TEST "CRPN" WITH IDENTICAL NON-ZERO MAGNITUDES, POSITIVE S0URCE2. NEGATI 

..••••••••••••»»»»**••*••*•••*••*•****•******♦***♦***♦♦********♦* 

Ht^o* scqpf 

JSR R5,NPREP .-PREPARE AROIPKNTS FOR INSTRUCTION TEST 



MAIN. NACYll 30(I0A6; 22-JAN-82 08:50 PAGE 
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54 

TEST "WN' 



B S 

WITH lOENTJ AL NON-ZERO MAGNITUDES, POSITIVE S0URCE2, NEGATIV SEO 005 



2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2w16 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2S29 

2830 

2831 

2832 



010036 
010040 
010042 
010044 
010046 
010050 
010054 
CI 0056 
010062 
010064 



000004 
010202 
000004 
010206 
000377 
004567 
000210 
004767 
000277 
000250 



010066 076052 



01C070 
010074 
010102 
O'iOIIO 
010112 



010114 
010114 
010116 
010120 

010122 
010124 
010126 

010130 
010132 
010134 

010136 
010140 
010142 

010144 
010150 
010152 



010154 
010160 
010162 



010164 
010170 
010172 
010176 



010200 



106767 
04276; 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



004770 
004676 



170602 

177400 170574 
000700 170566 



170S04 

170476 

000702 
000704 



64S: 

65S: 
66$: 
67$: 
68S: 

69$: 

70$: 



JSR 

.WORD 

JSR 

sec 

CLN 

CNPN 

HFPS 

SIC 

CMP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 



BEQ 
ERROR 



CHP 
BEQ 

nov 

ERROR 



4 .SOURCEI LENGTH 

S1T30 .-SOURCEI ADDRESS 
4 ;S0URCE2 LENGTH 

S2T30 ;S0UF>CE2 ADDRESS 

377 .STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED Br 

R5.XPSU 

2l6 

PC.6ENR :SET UP GENERAL REGISTERS 

;SCT UP THE COMPLEMENT OF EXPECTED CCS 



'CHPN" IN 



CCODES 

#1 77400, CCODES 
i#EXPPS'-.CCUDES 

6';$ 
1 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 



R5.0STA0 

70i 

7 



a#SAVR6.SP 
71$ 

SP.ai»BA0R6 

10 



71$: 



STORE RESULTAfJT PSW 

CLEAR UNUSED BITS 

CHECK PSW AGAINST EXPECTED VALUE 

BR. IF EQUAL 

ftft*ft**ft***ft*ft**TEST 30 - ERROR 
PSU ERROR 

EXPECTED PSW IS STORED AT "SAVR6" 
ERRONEOUS SP VALUE IS AT 'BADR6" 

CHECK M-0 



•******«*****ft*TEST 30 - ERROR 2* 
RO SHOULD BE ZERO 
CHECK RUO 



R1 SHOULD BE ZERO 
CHECK R2«0 



►TEST 30 - ERROR 3* 



•ftft**ft*******ft*TEST 30 - ERROR 4* 
R2 SHOULD BE ZERO 
CHECK rBsO 



****ft*ft***ft***ftTEST 30 - ERROR 
R3 SHOULD BE ZERO 
CHECK R4 UNCHANGED 
BR IF OK 

•**************TEST 30 - ERROR 6******»< 
R4 CHAM6ED 

R4 SHOULD STILL EQUAL CONTENTS OF 'TILL' 
CHECK 115 UNCHANGED 



****ft***ftftft*ft**TEST 30 - ERROR 
R5 CHANGED 

R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAD" 
VERIFY STACK POINTER IS RESTORED 
BR IF OK 

COPY BAD SP VALUE 

t*ftftft**ftft****t*TEST 30 - ERROR 10********* 

STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED SP IS STORED AT "SAVR6" 
ERRONEOUS SP VALUE IS AT 'BADR6" 
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00(K04 

070 
066 
064 
162 

070 
066 
064 
062 



CVKAJ8. 


P11 22 


2833 


010200 


283A 


010202 


2835 


010202 


2836 


010203 


2837 


010204 


2838 


010205 


2839 


010206 


2840 


010206 


2841 


010207 


2842 


010210 


2843 


010211 


2844 




2845 




2846 




2847 




2848 




2849 




2850 




2851 




2852 


010212 


2853 


010214 


2854 


010220 


2855 


010222 


2856 


010224 


285? 


010226 


2858 


010230 


2859 


010232 


2860 


010236 


2861 


010240 


2862 


010244 


2863 


010246 


2864 




2865 


010250 


2866 




2867 


010252 


2868 


010256 


2869 


010264 


2870 


010272 


2871 


010274 


2872 




2873 




2874 




2875 


010276 


2876 


010276 


2877 


010300 


2878 


010302 


2879 




2880 


010304 


2881 


010306 


2882 


010310 


2883 




2884 


010312 


2885 


010314 


2886 


010316 


2887 




288S 


010320 



08:50 PAGE 
T30 



S1T30; 



S2T30: 



55 

TEST 
BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.EVEN 



C 5 



Xmi" WITH IDENTICAL NON-ZERO MAGNITUDES, POSITIVE SOURCE?, NEGATIV SEQ 0054 



TST31 

70 
66 
64 
162 

70 
66 
64 
62 



;BR TO NEXT TEST 

;S0URCE1 STRING 

.•nOSr SIGNIFICANT DIGIT 



;S0URCE2 STRING 

:nOST SIGNIFICANT DIGIT 



000004 
004567 
000002 
010364 
000002 
010366 
000377 
004567 
000200 
004767 
000277 
000250 

076052 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
00U01 
104003 

005702 
001401 
104004 

005703 



004512 



004606 
004514 



170420 
177400 
000700 



170412 
170404 



•TEST 31 

tST31 : SCOPE 
JSR 



JSR 

.yORD 

JSR 

sec 

CLN 

CMPN 

HFPS 

6IC 

CNP 

BEQ 

ERROR 



64S: 

65S: 
66S: 
67S: 



TEST "CHPN" WITH ^SRCI ( -SRC2. SIL * S2L, /SI/ .6T. /S2/ 

RS.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

2 ; SOURCE 1 LENGTH 

S1T31 .SOURCEI ADDRESS 

2 :S0URCE2 LENGTH 

377^^ ;STORE^NoS?ZEr"vALUE TO TEST R4 UNAFFECTED BY "C«PN" IN 

R5.XPSW 

206 

PCGENR .SET UP GENERAL REGISTERS 

.SET UP THE COHPLEHENT OF EXPECTED CCS 



CCODES .STORE RESULTANT PSW 

#1 77400. CCODES ."CLEAR UNUSED BITS ^ ^ 

afEXPPSW. CCODES :CHECX PSW AGAINST EXPECTED VALUE 
64f ;8R. IF EQUAL ,^ _ . 

1 ;*ft*ft*****ft****ftTEST 31 - ERROR 

'PSW ERROR 

•EXPECTED PSW IS STORED AT •*SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 



RO 

65S 

2 

R1 

66S 

3 

4 

R3 



; CHECK ROsO 



;ftftftft*ft*ft***ftftft*TEST 31 

;R0 SHOULD BE ZERO 
; CHECK RIsO 



;ft*t***ft*o*ftftft*TEST 31 

:R1 SHOULD BE ZERO 
; CHECK R2=0 

-**««***********TEST 31 

;R2 SHOULD BE ZERO 
.•CHECK R3=0 



ERROR 2« 
ERROR 3< 
ERROR 4< 



.cvTiJB.Prt'^'^alSiiSiea oi^ir"' V 'itsi "c^n" with *srci\ -src2. sil - s2l, /si/ .gt. /s2/ 



SEO 005S 



29(K 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

29U 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 



010322 
010324 

010326 
010332 
010334 



010336 
010342 
010344 



010346 
010352 
010354 
010360 



010362 
010362 
010364 
010364 
010365 
010366 
010366 
010367 



010370 
010372 
010376 
010400 
010402 
010404 
010406 
010410 
010414 
010416 
010422 
010424 



001401 
! 04005 

020467 
001401 
104006 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



000402 

071 
066 

066 
171 



000004 
004567 
000003 
010542 
000003 
010545 
000377 
004567 
000210 
004767 
000267 
000250 



010426 076052 



010430 
010434 
010442 
010450 
010452 



106767 
042767 
023767 
001401 
104001 



170322 
170314 

000702 
000704 



68t: 



69S: 



70S: 



BEO 
ERROR 

cnp 

BEO 
ERROR 



CNP 
BEO 
ERROR 



BEO 
MOV 
ERROR 



68$ 

5 

R4.0STLN 

69i 

6 



R5.DSTA0 

70i 

7 



arsAVR6«sp 

71$ 

SP,M8A0R6 

10 



;*ftftftftftft**ft***ft*TEST 31 - ERROR 5»»*****«* 

:R3 SHOULD BE ZERO 
.CHECK R4 UNCHANGED 
;BR IF OK 

;ftfttt**ftftftft***ft*TEST 31 - ERROR 6*»**«**** 

;R4 CHANGED „ 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
.-CHECK R5 UNCHANGED 



71$: 




TST32 




BR 


S1T31: 








.SrTE 


71 




.BYTE 


66 


S2T31: 








.BYTE 


66 




.BYTE 


171 




.EVEN 





;****ftftft*****ftftftTEST 31 - ERROR 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'MTAD" 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

.•***ftft**ft**ftftftftTEST 31 - ERROR 10********« 

.-STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED SP IS STORED AT "SAVR6'; 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 

:BR TC NEXT TEST 

; SOURCE 1 STRING 

.-MOST SIGNIFICANT DIGIT 

;S01MCE2 STRING 

.-MOST SIGNIFICANT DIGIT 



004334 



004430 
004336 



170242 
177400 
000700 



*TEST 32 TEST "tMPN" WITH -SRC1 t ♦SRC2. SIL - S2L. /SI/ .GT. /S2/ 

tST32: 



SCOPE 
JSR 



JSR 
.WORD 
JSR 



R5,NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

3 .-SOURCEI LENGTH 

S1T32 .-SOURCEI ADDRESS 

:S0URCE2 LENGTH 

;-STOrPnOiSzEr"vALUE to TEST R4 UNAFFECTED BY 'XMPN" IN 



R5.XPSU 
2l6 

PCGENR 



♦SEV.'SEZlsic 
CLN 



.-SET UP GENERAL REGISTERS 

.-SET UP THE COMPLEMENT OF EXPECTED CCS 



170234 
170226 



CMPN 

MFPS 

BIC 

CMP 

BEQ 

ERROR 



CCODES 
f177400,CC0DES 



.STORE RESULTANT PSU 
.-CLEAR UNUSED BITS 

arEXPPSu. CCODES .-check psu against expected value 

.PSU ERROR 
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E 5 



29A5 








29A6 








?947 


010454 






29A8 


010454 


A A P ^ A A 

005700 




2949 


010456 


AA4 i A4 

001401 




2950 


010460 


4 A ^ A A ^ 

104002 




2951 








2952 


010462 


AAf ^A4 

005701 




2953 


010464 


001401 




2954 


A 4 A J ^ ^ 

010466 


4 A / AAV 

104003 




2955 








2956 


A4 A^ ^A 

010470 


AAC^A^ 

005702 




2957 


010472 


001401 




2958 


A4 A « ^4 

010474 


104004 




2959 








2960 


A4 A/ 9^ 

010476 


AAC7A7 

005703 




2961 


A1 ACAA 

010500 


AA4 i A4 

001401 




2962 
2963 


010502 


4 A^ AAC 

104005 




2964 


A1 ACA/ 

010504 


020467 


170144 


2965 


010510 


AA4 / A4 

001401 




2966 


A1 AC1 ? 

010512 


4 A/ AAZ. 

104006 




2967 








2968 










Af AC1 i 


AOACZ'y 

02050 r 


170136 


2970 


A4 AC 'lA 

010520 


AA4 / A4 

001401 




2971 


A1 AO'S 

010522 


4 A/ AA7 

104007 




2972 








2973 








2974 


A1 AOi 

010524 


023706 


AAA7A^ 

000702 




A4 ACTA 
010530 


AAi / ni 
001403 




2976 


A1 ACV) 

01 0532 


A4 AX. 

010637 


AAA7A/ 
000704 


2977 


A1 Adz. 

010536 


1 A/ A1 A 

104010 




Z9r8 
















?980 








2981 


A4 ACy A 

010540 






2982 


A4 AC/ A 

010540 


AAA/ AT 

000403 




2983 


A1 AC/ 

010542 






2984 


A1 AC y 

010542 


A7A 
070 




ic985 


A4 AC/ Z 

010543 


AZT 

063 




i?986 


A4 AO t 

01u5*iH 


161 




2987 


A1 AC/ C 

010545 






2988 


A1AC/ C 

010545 


AZ4 

061 




2989 


A1 AC/ Z 

010546 


063 




CrfQ 


nt ACZ7 

wlU5*f 


A7A 

OrO 




2991 








CrfC 








2993 








2994 
















2996 








2997 








2998 

fooo 


010550 
010552 
010556 


000004 
004567 
000004 


004154 



T32 



64S: 



65$: 



66$: 



67$: 



68$: 



69$: 



70$: 



71$: 
S1T32: 



S2T32: 



TEST "C«PN" WITH -SRC1 I ♦SRC2, S1L = S2L. /SI/ .6T. /S2/ 

.EXPECTED PSW IS STORED AT "SAVR6" 
/ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK R0=0 

;******t********TEST 32 - ERROR 2»********» 

:R0 SHOULD BE ZERO 
.•CHECK R1*0 

;*»*************TEST 32 - ERROR 3»***»*»*** 

:R1 SHOULD BE ZERO 
.CHECK fi2=0 

;***ft********ft**TEST 32 - ERROR 4*»*»»***»* 

;R2 SHOULD BE ZERO 
.-CHECK R3-0 

;***************TEST 32 - ERROR 5********»* 

:R3 SHOULD BE ZERO 
.•CHECK R4 UNCHANGED 
:BR IF OK 

;***ft***********TEST 32 - ERROR 6*********« 

;R4 CHANGED 

;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
.-CHECK R5 UNCHANGED 

;***************TEST 32 - ERROR 7********** 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAD" 
.-VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

;ftft******ft******TEST 32 - ERROR 10********« 

.-STACK POINTER NOT RESTORED BY INSTRUCTION 
.-EXPECTED SP IS STORED AT •^VR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



SEO 0056 



TST 


nA 

RO 


BP A 


zee 
651 


ERROR 


2 


T P T 

TST 


Rl 


BC A 


60S 


ERROR 


3 


TCT 

TST 


R2 


OCA 


Z.7« 
6f • 




L 


TST 


R3 


BEQ 


68$ 


ERROR 


5 


CMP 


R4.DSTLN 


BEQ 


69i 


ERROR 


6 



C«P 
BEQ 
ERROR 



C«P 
BEQ 
NOV 
ERROR 



BR 

.BYTE 
.BYTE 
•BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



R5.DSTAD 

70i 

7 



arsAVR6,sp 

71$ 

SP,a«BADR6 
10 



rST33 

70 
63 
161 

61 
63 
70 



;BR TO NEXT TEST 

.-SOURCEI STRING 

;NOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 



:*TEST 33 TEST "CNPN" WITH S1L - S2L. POSITIVE S0URCE2, S0URCE2 MAGNITUDE IS GREAT 

t§T33: 



SCOPE 
JSR 



R5,NPREP 
4 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 
.SOURCEI LENGTH 
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T33 TEST 



F 5 

•C«PN" WITH S1L = S2L. POSITIVE S0UPCE2, S0URCE2 MAGNITUDE IS CREATE SEO 0057 



3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

301 0 

3011 

3012 

3013 

30K 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

305^ 

io54 
3055 
3056 



010560 
010562 
010564 
010566 
010570 
010574 
010576 
010602 
010604 



010722 
000004 
010726 
000377 
004567 
000210 
004767 
000277 
000250 



010606 076052 



010610 
010614 
010622 
010630 
010632 



010634 
010634 
010636 
010640 

010642 
010644 
010646 

010650 
010652 
010654 

010656 
010660 
010662 

010664 
010670 
010672 



010674 
010700 
010702 



010704 
010710 
010712 
010716 



010720 
010720 



106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 



020567 
001401 
104007 



023706 
001403 
f 10637 
104010 



000404 



004250 
004156 



170062 

177400 170054 
000700 170046 



167764 

167756 

000702 
000704 



64$: 

65$: 
66$: 
67$: 
68$: 

69$: 

70$: 



JSR 
.WORD 

JSR 

sec 

CLN 

CMPN 

MFPS 

eic 

CMP 
BEQ 
ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
NOV 
ERROR 



S1T33 ; SOURCE 1 ADDRESS 
4 ;S0URCE2 LENGTH 

S2T33 ;S0URCE2 ADDRESS 

377 

R5. XPSU 
21 6 

PC.6ENR :SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



•STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED Br 'tMPN" IN 



CCODES 

«177400«CC0DES 
afEXPPSU, CCODES 
64$ 
1 



RO 
65$ 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 



71$: 



BR 



R4.DSTLN 

69i 

6 



R5.DSTAD 

70i 

7 



a#SAVR6.SP 
71$ 

SP,a«8ADR6 

10 



TST34 



;ST0RE RESULTANT PSU 

.-CLEAR UNUSED BITS 

; CHECK PSU AGAINST EXPECTED VALUE 

;BR, IF EQUAL 

;****ftftft*****ft**TEST 33 - ERROR 1* 
'PSU ERROR 

•EXPECTED PSU IS STORED AT '*SAVR6' 
.•ERRONEOUS SP VALUE IS AT 'BA0R6" 

; CHECK ROsO 

;****ftft****ft****rEST 33 - ERROR 2« 
;R0 SHOULD BE ZERO 
.•CHECK hUO 

;***ftft**ft*******TEST 33 - ERROR 3« 
:R1 SHOULD BE ZERO 
; CHECK R2=0 

;******ftftft****fi*TEST 33 - ERROR 4* 
;R2 SHOULD BE ZERO 
.•CHECK R3s0 



;***************TEST 33 - ERROR 5*»»»»*»« 
;R3 SHOULD BE ZERO 
.-CHECK R4 UNCHANGED 
;BR IF OK 

;****ftftftftft******TEST 33 - ERROR 6*******< 
;R4 CHANGED _ . 

;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL* 
.CHECK R5 UNCHANGED 



;***ft*ft*ft*ft*t***rEST 33 - ERROR 7********** 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'tSTAD" 
.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE „ 
:t****t*****ftft*tTEST 33 - ERROR 10*****»»*« 

; STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT ••SAVR6;' 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

:BR TO NEXT TEST 
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T33 T£ST 



G 5 

XMPM" UlTH S1L - S2i, POSITIVE S0URCE2, S0URCE2 MAGNITUDE IS GREATE SEO 0058 



3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 



010722 
010722 
010723 
010724 
010725 
010726 
010726 
010727 
010730 
010731 



067 
066 
065 
064 

067 
066 
065 
065 



010732 
010734 
010740 
010742 
010744 
010746 
010750 
010752 
010756 
010760 
010764 
010766 



000004 
004567 
000002 
011104 
000004 
011106 
000377 
004567 
000204 
004767 
000277 
000244 



010770 076052 



010772 
010776 
011004 
011012 
0110U 



011016 
011016 
011020 
011022 

011024 
011026 
011030 

011032 
011034 
011036 



8 



11040 
11042 
011044 



106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 



S1T33: 



S2T33: 



003772 



004066 
003774 



167700 
177400 
000700 



TST34; 



167672 
167664 



64$: 

65$: 
66$: 
67$: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
•BYTE 
.BYTE 
.BYTE 

.EVEN 



67 
66 
65 
64 

67 
66 
65 
65 



.'SOURCEI STRING 

.-MOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

;mST SlGNIflCANT DIGIT 



•TEST 34 



TEST "CMPN" WITH S2L .GT. SIL. $UCCESSFUL COMPARE 



SCOPE 
JSR 



JSR 
.WORD 

JSR 

sec 

CLZ 
CMPN 

HFPS 

BIC 

CMP 

BECt 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



RS.NPREP 

S1T34 ; 

S2T34 
377 

R5,XPSU 
PCGENR 



; PREPARE ARGUMENTS FOR IN$TRUCTION TEST 
; SOURCEI LENGTH 
SOURCEI ADDRESS 

;S0URCE2 LENGTH 
;S0URCE2 ADDRESS 

.-STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tMPN" IN 



;SET UP GENERAL REGISTERS 

.SET UP THE COMPLEMENT OF EXPECTED CC*S 



CCODES 

#1 77400, CCODES 

a#EXPPSU,CCODES 

64$ 



RO 
65$ 

2 

R1 

66$ 

3 



R3 

68$ 

5 



STORE RESULTANT PSU 

CLEAR UNUSED BITS 

CHECK PSU AGAINST EXPECTED VALUE 

BR, IF EQUAL 

t*****ft*t******TEST 34 - ERROR 1« 
PSU ERROR 

EXPECTED PSU IS STORED AT "SAVR6' 
ERRONEOUS SP VALUE IS AT 'BADR6" 

CHECK RO^O 

•**t**ftftft«*****TEST 34 - ERROR 2« 
RO SHOULD BE ZERO 
CHECK RIsO 

********»t*****TEST 34 - ERROR 3« 
R1 SHOULD BE ZERO 
CHECK R2»0 

****ft*****»*t**TEST 34 - ERROR 4« 
R2 SHOULD BE ZERO 
CHECK R3«0 

»**************TEST 34 - ERROR 5» 



.MAIN. 


HACYll 


30(1046) 


CVKAJB.Pn 22-JAN-82 


3113 






31U 


011046 


020467 


3115 


011052 


001401 


3116 


011054 


104006 


3117 






3118 






3119 


011056 


020567 


3120 


011062 


001401 


3121 


011064 


104007 


3122 






3123 






3124 


011066 


023706 


3125 


011072 


001403 


^126 


011074 


010637 


3127 


011100 


104010 


3128 






3129 






3130 






3131 


011102 




3132 


011102 


000403 


3133 


011104 




3134 


011104 


067 


3135 


011105 


071 


3136 


011106 




3137 


011106 


060 


3138 


011107 


060 


3139 


011110 


067 


3U0 


011111 


071 


3141 






3142 






3143 






3144 






3145 






3146 






3147 






3148 


011112 


000004 


3149 


011114 


004567 


3150 


011120 


000002 


3151 


011122 


011262 


3152 


011124 


000004 


3153 


011126 


011264 


3154 


011130 


000377 


3155 


011132 


004567 


3156 


011136 


000200 


3157 


011140 


004767 


3158 


011144 


000277 


3159 






3160 


011146 


076052 


3161 




106767 


3162 


011150 


3163 


011154 


042767 


3164 


011162 


023767 


3165 


011170 


001401 


3166 


011172 


104001 


3167 






3168 







2-JAN-82 08:50 PAGE 60 
:49 T34 TEST 



H 5 

•CWPN" yiTH S2L .6T. SIL. SUCCESSFUL COWARE 



SEO 0059 



167602 

167574 

000702 
000704 



68S: 



69S: 



70$: 



BEQ 
ERROR 



BEQ 
ERROR 



BEQ 

nov 

ERROR 



R4.DSTLN 

69i 

6 



R5.0STAD 

70i 

7 



arsAVR6,SP 

71$ 

SP,»V8ADR6 
10 



:R3 SHOULD BE ZERO 
.CHECK R4 UNCHANGED 
:BR IF OK 

:***»*»*ftftft*»»**TEST 34 - ERROR 6*»**»"** 
;R4 CHANGED _ 
:R4 SHOULD STILL EQUAL CONTENTS OP 'TILL" 
.-CHECK R5 UNCHANGED 



71$: 








BR 


TST35 


S1T34: 




67 


.BYTE 




.BYTE 


71 


S2T34: 




60 




.BYTE 




.BYTE 


60 




.BYTE 


67 




.BYTE 


71 




.EVEN 





;*************ft*TEST 34 - ERROR 7**»******« 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'WTAD" 
.•VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

•COPY BAD SP VALUE 

;********ft******TEST 34 - ERROR 10********« 

.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ''SAVR6;; 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 

.SOURCEI STRING 

.-MOST SIGNIFICANT DIGIT 

.•S0URCE2 STRING 

;nOST SIGNIFICANT DIGIT 



003612 



003706 
003614 



167522 
177400 
000700 



167514 
167506 



.••TEST 35 

t§T35: SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

CMPN 

HFPS 

BIC 

C«P 

BEQ 

ERROR 



TEST "CHPN" UITH NEGATIVE OPERANDS % SRC2 LENGTH .GT. SRC1 LENGTH. NON-Z 

R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

2 .•SOURCEI LENGTH 

Sir35 .-SOURCEI ADDRESS 

4 ; source! length 

S2T35 .SOURCE? ADDRESS .. 

377 ;STORC NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tHPN" IN 

R5.XPSU 
200 

PC.6ENR .-SET UP GENERAL REGISTERS 

.SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSU 

'Je%SSiSls j^iilK ^SSaKH EXPtCTE. VALUE 

r ::f!;.^^.S!S^....TcsT 35 - Ei«» 1. 

•PSU ERROR 

•EXPECTED PSU IS STORED AT '*SAVR6' 



HAIN. HACY11 50(1046) 22-JAN-82 
CVICAJ8.PP 22-JAN-82 08:49 



3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
5181 
3182 
5185 
5184 
5185 
5186 
5187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
5198 
5199 
5200 
3201 
3202 
5205 

5204 011260 
3205 011260 
5206 011262 
3207 011262 
5208 011263 

3209 011264 

3210 011264 

3211 011265 
5212 011266 
5215 011267 
3214 

3215 
5216 
3217 
3218 
3219 
5220 

3221 011270 

3222 011272 
5225 011276 
3224 011300 



08:50 PAGE 61 
T35 



I 5 



011174 
011174 
01 1 1 76 
011200 


005700 
001401 
104002 




64S: 


TST 
BEQ 
ERROR 


RO 
65$ 

2 


011202 
011204 
011206 


005701 
001401 
104003 




65$: 


TST 
BEQ 
ERROR 


R1 
66$ 


011210 
011212 
011214 


005702 
001401 
104004 




66S: 


TST 
BEQ 
ERROR 


R2 

6r$ 

4 


011216 
011220 
011222 


005703 
001401 
104005 




67$: 


TST 
BEQ 
ERROR 


R3 
68$ 

5 


011224 
011230 
011232 


020467 
001401 
104006 


167424 


68$: 


C«P 
BEQ 
ERROR 


R4.0STLN 

69i 

6 


011234 
011240 
011242 


020567 
001401 
104007 


167416 


69$: 


CMP 
BEQ 
ERROR 


R5.DSTAD 

70i 

7 


011244 
011250 
011252 
011256 


023706 
001403 
010637 
104010 


000702 
000704 


70$: 


CMP 
BEQ 

nov 

ERROR 


a#SAVR6,SP 
71$ 

SP.a«8A0R6 
10 



000403 

070 
161 

061 
060 
070 
161 



TEST "CMPN" WITH NEGATIVE OPERANDS t SRC2 LENGTH .GT. SRC1 LENGTH^ NON-ZE SEQ 0060 

: ERRONEOUS SP VALUE IS AT 'BADR6" 
.•CHECK R0=0 

;***********t***TEST 35 - ERROR 2*************** 

;R0 SHOULD BE ZERO 
.CHECK RUO 

;*ft*ft*ft*********TEST 35 - ERROR 3**»*****»****** 

:R1 SHOULD BE ZERO 
.•CHECK R2s0 

;***************rEST 55 - ERROR 4*************** 

;R2 SHOULD BE ZERO 
.•CHECK R3s0 

;***************TEST 35 - ERROR 5**«****«««***** 

:R3 SHOULD BE ZERO 
.•CHECK R4 UNCHANGED 
•BR IF OK 

)t**************TEST 35 - ERROR 6*************** 

;R4 CHANGED _ 
:R4 SHOULD STILL EQUAL CONTENTS OF 'TIlL" 
.-CHECK R5 UNCHANGED 

;***************TEST 35 - ERROR 7***«*********«« 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAD" 
;VERIFy STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;***************TEST 35 - ERROR 10*****»»*******« 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 
;S0URCE1 STRING 
.•mST SIGNIFICANT DIGIT 

.SOURCE? STRING 
.-HOST SIGNIFICANT DIGIT 



71$: 








BR 


TST36 


S1T35: 






.BYTE 


70 




.BYTE 


161 


S2T35: 








.BYTE 


61 




.BYTE 


60 




.BYTE 


70 




.BYTE 


161 




.EVEN 





• 'A************************************************************** 

r*TEST 36 TEST 'tHPN" WITH POSITIVE OPERANDS % SRC2 LENGTH .GT. SRC1 LENGTH. NON-Z 



000004 
004567 
000002 
01U42 



003434 



TST36: 



SCOPE 
JSR 



R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

2 .- SOURCE 1 LENGTH 

S1T36 ; SOURCE 1 ADDRESS 



.MAIN. IIACYll 30(1046) 22-JAN-82 
CVKAJB.Pn 22-JAN-82 08:A9 



08:50 PAGE 62 
T36 TEST 



J 5 

■C«PN" WITH POSITIVE OPERANDS t SRC2 LENGTH .GT. SRC1 LENGTH, NON-ZE SfO 0061 



3 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3278 
3279 
3280 



011302 
011304 
011306 
011310 
011314 
011316 
011322 
011324 



000004 
011445 
000377 
004567 
000210 
004767 
000277 
000250 



011326 076052 



011330 
011334 
011342 
011350 
011352 



011354 
011354 
011356 
011360 

011362 
011364 
011366 

011370 
011372 
011374 

011376 
011400 
011402 

011404 
011410 
011412 



011414 
011420 
011422 



011424 
011430 
011432 
011436 



011440 
011440 
011442 



106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



000403 



003530 
003436 



167342 

177400 167334 
000700 167326 



167244 

167236 

000702 
000704 



64$: 

65$: 
66$: 
67$: 
68$: 

69$: 

70$: 



JSR 

.WORD 

JSR 

sec 

CLN 

CMPN 

HFPS 

BIC 

CMP 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
MOV 
ERROR 



S2T36 
377 

R5.;(PSW 
2l6 

PCGENR 



;S0URCE2 LENGTH 

;S0URCE2 ADDRESS , 

STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED BY "CMPN" IN 



;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES : STORE RESULTANT PSW 

#1 77400, CCODES ; CLEAR UNUSED BITS 
a#EXPPSW, CCODES .-CHECK PSW AGAINST EXPECTED VALUE 



64$ 

1 



RO 
65$ 

2 

Rl 
66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 



71$: 
S1T36: 



BR 



R4.DSTLN 

69i 

6 



R5-DSTAD 

70i 

7 



»rSAVR6,SP 
71$ 

SP,a«8A0R6 

10 



TST37 



;BR, IF EQUAL 
;**t************TEST 36 - ERROR 1* 
*PSW ERROR 

•EXPECTED PSW IS STORED AT "SAVR6' 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

.•CHECK RO-0 

;****»**********TEST 36 - ERROR 2* 
;R0 SKOULD BE ZERO 
; CHECK Rl-0 

;*********t*t***TEST 36 - ERROR 3* 
;R1 SHOULD BE ZERO 
.•CHECK R2=0 

;***************TEST 36 - ERROR 4< 
:R2 SHOULD BE ZERO 
.•CHECK R3=0 



;***********tt***TEST 36 - ERROR 5** 

;R3 SHOULD BE ZERO 
.CHECK R4 UNCHANGED 
;8R IF OK 

;***************TEST 36 - ERROR 6******** 
;R4 CHANGED , 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL' 
.•CHECK R5 UNCHANGED 



;***************TEST 36 - ERROR 7********« 
;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF "DSTAD" 
.•VERIFY STACK POINTER IS RESTORED 
;BR IF OK 

;COPy BAD SP VALUE 

•***************TEST 36 - ERROR 10********« 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
EXPECTED SP IS STORED AT ;5AVR6 
•ERRONEOUS SP VALUE IS AT 'BA0R6" 

;BR TO NEXT TEST 
:S0URCE1 STRING 



•MAIN. 


HACY11 


30(1046) 


CUKAJfi 


P11 22-JAN-82 


3281 


011442 


070 


3282 


011443 


061 


3283 


011444 


061 


328A 


011445 


060 


3285 


011445 


3286 


011446 


070 


3287 


011447 


061 


3288 






3289 






3290 






3291 






3292 






3293 






3294 






3295 


011450 


000004 


3296 


011452 


004567 


3297 


011456 


000004 


3298 


011460 


011622 


3299 


011462 


000002 


3300 


011464 


011626 


3301 


011466 


000377 


3302 


011470 


004567 


3303 


011474 


000204 


3304 


011476 


004767 


3305 


01 1 502 


000277 


3306 


011504 


000244 


3307 




076052 


3308 


011506 


3309 




106767 


3310 


011510 


3311 


011514 


042767 


3312 


011522 


023767 


3313 


011530 


001401 


3314 


011532 


104001 


3315 






3316 






3317 






3318 


011534 




3319 


011534 


005700 


3320 


011536 


001401 


3321 


011540 


104002 


3322 






3323 


011542 


005701 


3324 


01 1 544 


001401 


3325 


011546 


104003 


3326 






3327 


011550 


005702 


3328 


011552 


001401 


3329 


011554 


104004 


3330 






3331 


011556 


005703 


3332 


01 1 560 




3333 


011562 


104005 


3334 




020467 


3335 


011564 


3336 


011570 


001401 



22-JAN-82 



08:50 PAGE 63 
T36 TEST 



•CMPN" WITH POSI UVE OPERANDS t SRC2 LENGTH .GT. SRC1 LENGTH, NON-ZE SEO 0062 



S2T36: 



.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



70 
61 
6' 

60 
70 
61 



;N0ST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

;NOST SIGNIFICANT DIGIT 



•TEST 37 



003254 



003350 
003256 



167162 
177400 
000700 



TST37: 



167154 
167146 



64S: 

65S: 
66S: 
67$: 
68S: 



SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

CLZ 

CMPN 

HFPS 

SIC 

CHP 

BEO 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

CHP 
BEO 



TEST "CHPN" WITH SIL .6T. S2L. SUCCESSFUL COMPARE 

R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

4 ; SOURCE 1 LENGTH 

S1T37 ;S0URCE1 ADDRESS 

2 ;S0URCE2 LENGTH 

37P^ isTORpNoiffzERO^VALUE TO TEST R4 UNAFFECTED BY "CMPN" IN 

R5,XPSW 

204 

PC«GENR ;SET UP GENERAL REGISTEi^S 

•SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES 

#1 77400, CCODES 

a#EXPPSU,CCODES 

64S 

1 



RO 
65S 

2 

R1 

66$ 

3 

R2 

67$ 

4 

R3 
68$ 

5 



R4.DSTLN 
69i 



STORE RESULTANT PSW 

CLEAR UNUSED BITS 

CHECK PSW AGAINST EXPECTED VALUE 

BR, IF EQUAL 

***************TEST 37 - ERROR 1* 
PSW ERROR 

EXPECTED PSW IS STORED AT "SAVR6* 
ERRONEOUS SP VALUE IS AT 'BADR6" 

CHECK RO-O 

*********ft*****TEST 37 - ERROR 2* 
RO SHOULD BE ZERO 
CHECK R1-0 

«**************TEST 37 - ERROR 3* 
R1 SHOULD BE ZERO 
CHECK R2s0 

*tt************TEST 37 - ERROR 4« 
R2 SHOULD BE ZERO 
CHECK RJsO 

*********t**t»*TEST 37 - ERROR 5< 
R3 SHOULD BE ZERO 
CHECK R4 UNCHANGED 
BR IF OK 



•MAJN. 


HACY11 


30(1046) 


CVKAJB 


P11 22-JAN-82 


5337 


011572 


104006 


3338 






3339 






3^0 


011574 


020567 


3341 


011600 


001401 


33A2 


011602 


104007 


5343 






3344 






3345 


011604 


023706 


3346 


011610 


001403 


3347 


011612 


010637 


3348 


011616 


104010 


3349 






3350 






3351 






3352 


011620 




3353 


011620 


000403 


3354 


011622 




3355 


011622 


060 


3356 


011623 


060 


3357 


011624 


071 


3358 


011625 


070 


3359 


011626 


071 


3360 


011626 


3361 


011627 


070 


3362 






3363 






3364 






3365 






3366 






3367 






3368 






3369 


011630 


000004 


3370 


011632 


004567 


3371 


011636 


000004 


3372 


011640 


012002 


3373 


011642 


000002 


3374 


011644 


012006 


3375 


011646 


000377 


3376 


011650 


004567 


3377 


011654 


000210 


3378 


011656 


004767 


3379 


011662 


000277 


3380 


011664 


000250 


3381 




076052 


3382 


011666 


3383 






3384 


011670 


106767 


3385 


011674 


042767 


3386 


01 1 702 


023767 


3387 


011710 


001401 


3388 


Ol 1 fit 


1 UhUUI 


3389 






3390 






3391 






3392 


011714 





22-JAN-82 08:50 PAGE 64 



L 5 



T37 TEST "CNPN" WITH SiL .6T. S2L. SUCCESSFUL COMPARE 



SEQ 0063 



69S: 



70S: 



ERROR 



CMP R5,DSTAD 
BEQ 70$ 
ERROR 7 



;r,»»»»*tt**tt***TEST 37 - ERROR 6********* 
;R4 CHANGED .. 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
; CHECK R5 UNCHANGED 



71$: 
S1T37: 

S2T37: 



CMP 
BEQ 
MOV 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.EVEN 



a#SAyR6,SP 

71$ 

SP.a4rBADR6 
10 



TST40 

60 
60 
71 
70 

71 
70 



;**********t****TEST 37 - ERROR 7**»« •••••• 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF "OSTAD" 
.•VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

;COPY BAD SP VALUE 

;***************TEST 37 - ERROR 10********* 
.STACK POINTER NOT RESTORED BY INSTRUCTiON 
.EXPECTED SP IS STORED AT •'SAVR6 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 

:S0URCE1 STRING 

;M0ST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

:MOST SIGNIFICANT IIGIT 



003074 



003170 
003076 



167002 
177400 
000700 



•TEST 40 TEST "CMPN" WITH SIL .GT. S2L, NEGATIVE S0URCE1, NON-ZERO IN EXCESS 

.•••••••»*♦♦•••**•***••♦•**•***•****♦****••**•**************•**• 

tST40* SCOPE 

R5.NPREP ;P8EPARE ARGUMENTS FOR INSTRUCTION TEST 



166774 
166766 



JSR 



JSR 
.WORD 

JSR 

sec 

CLN 

CMPN 

MFPS 

BIC 

CMP 

BEQ 

ERROR 



4 

S1T40 
2 

S2T40 
377 

R5.XPSW 

2l6 

PC^GENR 



; SOURCE 1 LENGTH 
; SOURCE 1 ADDRESS 

:S0URCE2 LENGTH 

;S0URCE2 ADDRESS _ .. 

•STORE NON-ZERO VALUE TO TEST R4 UNAFFECTtO BY 'XMPN" IN 

;SET UP GENERAL REGISTERS 

•SET UP THE COMPLEMENT OF EXPECTED CCS 



64$: 



CCODES ; STORE RESULTANT PSW 

#177400,CCODES ; CLEAR UNUSED BITS 
arEXP°SW,CCODES .-check PSW AGAINST EXPECTED VALUE 
64$ :BR. IF EQUAL 

1 ;***************TEST 40 - ERROR 1**t*»*«««»«»««« 

*PSW ERROR 

•EXPECTED PSW IS STORED AT ••SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



n s 



.MAIN. 


RACYll 


CVICAJB.P11 ; 


3393 


0P714 


339^ 


011716 


3395 


011720 


33% 




3397 


011722 


3398 


011724 


3399 


011726 


3A00 




3A01 


011750 


3^02 


011732 


5403 


011734 


3404 




3405 


011736 


3406 


01 1 740 


3407 


011742 


3408 




3409 


01 1 744 


3410 


011750 


3411 


011752 


3412 




3413 




3414 


011754 


3415 


01 1 760 


3416 


011762 


3417 




3418 




3419 


01 1 764 


3420 


01 1 770 


3421 


01 1 772 


3422 


01 1 776 


3423 




3424 




3425 




3426 


012000 


3427 


012000 


3428 


012002 


3429 


012002 


3430 


012003 


5431 


012004 


5432 


012005 


3433 


012006 


3434 


012006 


34 3 5 


012007 


5456 




5457 




3458 




3459 




5440 




3441 




3442 




3443 


012010 


3444 


012012 


344 5 


012016 


5446 


012020 


544 7 


012022 


3448 


012024 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 
001401 
104006 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



061 
060 
063 
167 

063 
167 



000004 
004567 
000004 
012160 
000002 
012164 



08:50 PAGE 65 

T40 TEST "CWN" WITH SIL 



65$: 



166704 

166676 

000702 
000704 



66$: 



67$: 



68$: 



69$: 



70$: 



71$: 
S1T40: 

S2T40: 



TST 


RO 


BEQ 


65$ 


FDDDD 


C 


TST 


R1 


BEO 


66$ 




X 

J 


TST 


R2 


BEO 


67$ 




L 


TST 


R3 


BEQ 


68$ 


ERROR 


5 


CMP 


R4.DSTLN 


BEQ 


69$ 


ERROR 


6 


CMP 


R5,DSTAD 


BEQ 


70$ 


ERROR 


7 



CMP 
BEO 
MOV 
ERROR 



BR 

.BYTE 
.BYTE 

.em 

.BYTE 

.BYTE 
.BYTE 

.EVEN 



a#SAVR6,SP 
71$ 

SP,»r6ADR6 

10 



TST41 

61 
60 
63 
167 

63 
167 



,6T. S2L, NEGATIVE S0URCE1, NON-ZERO IN EXCESS 
.•CHECK R0=0 



SEQ 0064 



;***************TEST 40 - ERROR 2* 
:R0 SHOULD BE ZERO 
.•CHECK R1=0 

..••»»»»***»»*t»*TEST 40 - ERROR I* 
;R1 SHOULD BE ZERO 
.•CHECK R2:0 

;***************TEST 40 - ERROR 4< 
;R2 SHOULD BE ZERO 
.•CHECK rUO 



;***************TEST 40 - ERROR 5"*****"""** 

;R3 SHOULD BE ZERO 
.•CHECK R4 UNCHANGED 
:BR IF OK 

;.***************TEST 40 - ERROR 6*********"**" 

;R4 CHANGED .. 
;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
: CHECK R5 UNCHANGED 

;***************TEST 40 - ERROR 7***»»»********* 

;R5 CHANGED 

;R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAO" 
.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

ICOPY BAD SP VALUE 

;***************TEST 40 - ERROR 10»**»*********»* 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ;5AVR6 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 

; SOURCE 1 STRING 

;NOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

.-MOST SIGNIFICANT DIGIT 



•.•»*•••••*•»**•*••**•••*•»•••••**•••*•******•••******•*••••****• 

••TEST 41 TEST "CMPN" WITH SiL .6T. S2L. POSITIVE S0URCE1. NON-ZERO IN EXCESS 

•»•♦»••**•»•*•*•*•*•••••»•••••••**•*»*****•***♦*******»•******* 



002714 



tST41 : 



SCOPE 
JSR 



R5.NPREP .PREPARE ARGUMENTS FOR INSTRUCTION TEST 

4 : SOURCE 1 LENGTH 

S1T41 ;S0URCE1 ADDRESS 

2 .-SOURCE? LENGTH 

S2T41 ;S0URCE2 ADDRESS 



.MAIN. M/CYll 50(1046) 22-JAN-82 
CVKAJB.PII 22-JAN-82 08:A9 



08:50 PAGE 66 
T41 TEST 



3449 

3450 

3451 

3452 

34 53 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 



012026 C00377 

012030 004567 003010 

012054 000200 

012036 004767 002716 

012042 000277 

012044 076052 



012046 
012052 
012060 
012066 
012070 



012072 
012072 
0^2074 
012076 

012100 
012102 
012104 

012106 
012110 
012112 

012114 
012116 
012120 

012122 
012126 
012130 



012132 
012136 
012140 



012142 
012146 
012150 
012154 



}12156 
12156 
12160 
l|l60 
)l|l61 
)12162 



106767 166624 

042767 177400 166616 

023767 000700 166610 

001401 

104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

005703 
001401 
104005 

020467 166526 

001401 

104006 



020567 166520 

001401 

104007 



023706 000702 
001403 

010637 000704 
104010 



64$: 

65$: 
66$: 
67$: 
68$: 

69$: 

70$: 



000403 
061 



71$: 



JSR 
.WORD 

JSR 

sec 

CNPN 

MFPS 

BIC 

CW 

BEO 

ERROR 



N 5 

'CnPN" WITH S1L .GT. S2L, POSITIVE SOURCE 1. hON-lEM IN EXCESS SEQ 0063 

.-STORE NON-ZERO VALUE TO TEST R4 UNAFFECTED BV "CW>N" IN 



C«P 
BEO 
ERROR 



CMP 
BEQ 

nov 

ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 



377 

R5.XPSU 
206 

PC.GENR 



C CODES 

#1 77400. CCODES 



.SET UP GENERAL REGISTERS 

;SET UP THE CONPLEHENT OF EXPECTED CCS 



.STORE RESULTANT PSU 
.•CLEAR UNUSED BITS 



afEXPPSU. CCODES ;CHECK PSU AGAINST EXPECTED VALUE 



64$ 

1 



TST 


RO 


BEQ 


65$ 


ERROR 


2 


TST 


Rl 


BEO 


66$ 


ERROR 


3 


TST 


R2 


BEO 


67$ 


ERROR 


4 


TST 


R3 


BEO 


68$ 


ERROR 


5 


C«P 


R4.DSTLN 


BEQ 


69i 


ERROR 


6 



R5,DSTAD 

70i 

7 



a/rSAVR6.SP 
71$ 

SP.a#BA0R6 
10 



TST42 
61 

IS 



:BR. IF EQUAL 
;***************TEST 41 - ERROR 1*« 
*PSU ERROR 

•EXPECTED PSW IS STORED AT ••SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'MDR6" 



.•CHECK RO-0 

;**ft************TEST 41 

:R0 SHOULD BE ZERO 
.•CHECK R1=0 



- ERROR 2*************** 



;***************TEST 41 - ERROR 3******»******** 

:R1 SHOULD BE ZERO 
.CHECK R2=0 

;***************TESr 41 - ERROR 4*»************* 

;R2 SHOULD BE ZERO 
.CHECK R3=0 

;**ft**t*********TEST 41 - ERROR 5***«*********** 

:R3 SHOULD BE ZERO 
.•CHECK R4 UNCHANGED 
;BR IF OK 

;»»»*****»»»**«*TEST 41 - ERROR 6*******»"»****** 
.•R4 CHANGED 

;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL" 
.•CHECK R5 UNCHANGED 

;******ft********TEST 41 - ERROR 7**************« 
;R5 CHANGED 

:R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAD" 
.'VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;***ft**********ftTEST 41 - ERROR 10*************** 
.•STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ••SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;6R TO NEXT TEST 

; SOURCE 1 STRING 

.-MOST SIGNIFICANT DIGIT 



.MAIN. 


HACY11 


CVKAJB.P11 2 


3505 


012163 


3506 


012164 


3507 


012164 


3506 


012165 


3509 




3510 




3511 




IVl 




3513 




35U 




3515 




3516 




3517 


012166 


3518 


012170 


3319 


012174 


3520 


012176 


5521 


012200 


5522 


012202 


3523 


012204 


3524 


012206 


3525 


012212 


3526 


012214 


3527 


012220 


3528 




3529 


012222 


3530 




3531 


01^224 


3532 


012C30 


3553 


012236 


353A 


012244 


3535 


012246 


3536 




3537 




3538 




3539 


012250 


3540 


012250 


3541 


012252 


3542 


012254 


3543 




3544 


012256 


3545 


012260 


3546 


012262 


3547 




3548 


012264 


3549 


012266 


3550 


012270 


3551 




3552 


012272 


3553 


012274 


3554 


012276 


vccc 

3555 




3556 


012300 


3557 


012304 


3558 


012306 


3559 




3560 





B 6 

^|2-JAN-82 08:50^^PA6E 67^^ 'xmi" SiL .6T. S2L. POSITIVE SOURCEl. NON-ZERO IN EXCESS 



SEQ 0066 



067 

063 
067 



000004 
004567 
000003 
012336 
000003 
012341 
000377 
004567 
000200 
004767 
000277 

076052 

106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

005702 
001401 
104004 

00>703 
001401 
104005 

020467 
001401 
104006 



S2r41 



.BYTE 67 



.BYTE 
.BYTE 

.EVEN 



63 
67 



:S0URCE2 STRING 

:nOST SIGNIFICANT DIGIT 



002536 



002632 
002540 



166446 

177400 166440 
000700 166432 



.••TEST 42 
tST42: 



166350 



64S: 

65S: 
66S: 
67$: 
68$: 



SCOPE 
JSR 



JSR 

.yORD 

JSR 

sec 

CMPN 

WPS 

6IC 

CMP 

BEQ 

ERROR 



TEST "CHPN" WITH POSITIVE OPERANDS. /Si/ .GT. /S2/ 

R5.NPREP .PREPARE ARGUMENTS FOR INSTRUCTION TEST 

3 : SOURCEl LENGTH 

S1T42 .-SOURCEl ADDRESS 

3 ;S0URCE2 LENGTH 

377*^ jsTORE^NOlKzER^VALUE TO TEST R4 UNAFFECTED BY 'XMPN ' IN 

R5-XPSy 

200 

PC.6ENR .SET UP GENERAL REGISTERS 

SET UP THE COMPLEMENT Of EXPECTED CCS 



CCODES 

#1 77400. C CODES 
i#EXPPSU. CCODES 
64$ 

1 



TST 


RO 


6EC 


65$ 


ERROR 


2 


TST 


R1 


BEQ 


66$ 


ERROR 


3 


TST 


R2 


BEQ 


67$ 


ERROR 


4 


TST 


R3 


BEQ 


68$ 


ERROR 


5 


CMP 


R4.DSTLN 


BEQ 


69i 


ERROR 


6 



.•STORE RESULTANT PSV 

.•CLEAR UNUSED BITS 

.CHECK PSU AGAINST EXPECTED VALUE 

;!5;.I'..f!r....TesT « - i "... 

'PSy ERROR 

Iexpected Psy is stored at '^vr6;' 

.ERRONEOUS SP VALUE IS AT 'BADft6" 
.■CHECK R0=0 

;*ftft*ft*ft*ftft***ftftTEST 42 - ERROR 2»**»*******«*** 

:R0 SHOULD BE ZERO 
.CHECK RIsO 

;***************TEST 42 - ERROR 3**»**««***"*** 

;R1 SHOULD BE ZERO 
.•CHECK R2s0 

;*tt****ft***ft***TEST 42 - ERROR 4*******«******* 

:R2 SHOULD BE ZERO 
.CHECK R3-0 



;***********tt**TEST 42 - ERROR 5**»»«»*' 

;R3 SHOULD BE ZERO 
.CHECK R4 UNCHANGED 

::S!.iUR.......TEST 42 - error 6**"***' 

*R4 CHANGED 

;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL* 



SEQ 0067 



3561 
3562 
3563 
356A 
3565 
3566 
3567 
3568 
3569 
3570 
3571 



3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

5613 

3614 

3615 

3616 



012310 
012314 
012316 



012320 
012324 
012326 
012332 



012334 
012334 
012336 
012336 
012337 
012340 
012341 
012341 
012342 
012343 



012344 
012346 
012352 
012.^54 
012356 
012360 
012362 
012364 
012370 
012372 
012376 



020567 
001401 
104007 



023706 
001403 
010637 
104010 



000403 

067 
065 
064 

067 
065 
063 



000004 
004567 
000003 
012514 
000003 
012517 
000377 
004567 
000210 
004767 
000277 



012400 076052 



012402 
012406 
012414 
012422 
012424 



012426 
012426 
012430 
012432 



106767 
042767 
023767 
0C14C1 
104001 



005700 
001401 
104002 



166342 

000702 
000704 



69$: 



70$: 



CnP RS.DSTAO 
BEQ 70$ 
ERROR 7 



71$: 
S1T4?: 



S2T42: 



BEQ 
NOV 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



»rSAVR6.SP 
71$ 

SP,»rBA0R6 
10 



TST43 

67 
65 
64 

67 
65 
63 



.•CHECK R5 UNCHANGED 

;************ft**TEST 42 - ERROR 7»»»»»»»*** 
*R5 CHANGED 

'•R5 SHOULD STILL EQUAL CONTENTS OF 'WTAD" 
.-VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;****ftftftft*******TEST 42 - ERROR 10********* 

; STACK POINTER NOT RESTORED BY INSTRUCTION 
.EXPECTED SP IS STORED AT "SAVR6" 
.ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 

; SOURCE 1 STRING 

;MOST SIGNIFICANT DIGIT 



:S0URCE2 STRING 

;MOST SIGNIFICANT DIGIT 



••TEST 43 TEST '•CHPN" WITH NEGATIVE OPERANDS. /SI/ .6T. /S2/ 



002360 



002454 
002362 



166270 
177400 
000700 



TST43: 



166262 
166254 



64$: 



SCOPE 
JSR 



JSR 

.WORD 

JSR 

see 

C«PN 

MFPS 

BIC 

C«P 

BEQ 

ERROR 



TST 
BEQ 
ERROR 



R5«ftf>REP .PREPARE ARGUMENTS FOR INSTRUCTION TEST 

3 ; SOURCE 1 LENGTH 

S1T43 .SOURCEI ADDRESS 



3 

S2T43 
377 

R5-XPSW 
21 6 

PC.GENR 



:S0URCE2 LENGTH 
:-STORE^N0N?2Er"vALUE TO TEST R4 UNAFFECTED BY 'Xmf' IN 

.-SET UP GENERAL REGISTERS 

.-SET UP THE CO«PLE«ENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSW 

#177400.CCOOES ;CLEAR UNUSED BITS ^ _ 
a#EXPPSU. CCODES .-CHECK PSU AGAINST EXPECTED VALUE 
64$ :BR, IF EQUAL 

1 ;**;********ft***TEST 43 - ERROR 1* 

-PSU ERROR 

•EXPECTED PSW IS STORED AT •'SAVW; 
.-ERRONEOUS SP VALUE IS AT *^R6" 



RO 
65$ 

2 



.-CHECK R0=0 

;******ft********TEST 43 - ERROR 2* 
:R0 SHOULD BE ZERO 





HACY11 


50(1046) 


CVKAJB.Pn 22-JAN-82 






005701 


3618 


012456 


001401 


5619 


012440 


104003 












005702 


3622 


012444 


001401 




012446 


104004 






005703 




012452 


001401 


3627 

JVC ' 


012454 


104005 




012456 


020467 




012462 


001401 


3631 


012464 


104006 


%32 














012466 


020567 


^3S 


012472 


001401 




01 2474 


104007 


3637 






3638 






3639 


012476 


023706 


3640 


012502 


001403 




012504 


010637 


3642 


012510 


104010 


3643 






3644 

^^^^ 






364S 






3646 


012512 


000403 


3647 


012512 


3648 


012514 


067 


3649 


012514 


3650 


012515 


065 


3651 


012516 


164 


3652 


012517 


067 


3653 


012517 


3654 


012520 


065 


3655 


012521 


163 


3656 






3657 






3658 


















3661 






3^2 






3663 


012522 


000004 


3664 


012524 


105777 


3665 


012530 


100535 


^6M 


012532 


026767 


3667 


012540 


001007 


3668 


012542 


032767 


3669 


012550 


001403 


3670 


012552 


005767 


5671 


012556 


001122 


5672 


012560 





22-JAN-82 



08:50 PAGE 69 
T43 TEST 



D 6 

*CNPN" WITH NEGATIVE OfEftANDS. /SI/ .6T. /S2/ 



SEQ 0068 



65S: 
66S: 
67S: 
68S: 

69S: 

70S: 



71$: 
S1T43: 

S2T43: 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

C»»» 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



C«P 
BEO 
NOV 
ERROR 



BR 

.eyTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.EVEN 



R1 
66S 

3 

R2 

67$ 

4 

R3 
68$ 

5 

R4.DSTLN 

69i 

6 



R5.DSTAD 
70i 

7 



a#SAVR6,SP 
71$ 

SP,»VBADR6 
10 



TST44 

67 
65 
164 

67 
163 



.CHECK RUO 



'•*TEST 43 - ERROR 3< 
'SRC 



;R1 SHOULD BE 
.CHECK R2«0 

;ftftft************TEST 43 - ERROR 4' 

;R2 SHOULD BE ZERO 
.CHECK R3s0 



;***************TEST 43 - ERROR 5*******« 

;R3 SHOULD BE ZERO 
.-CHECK R4 UNCHANGED 
;BR IF OK 

.•••••••••••••••TEST 43 - ERROR 6***»**»« 

*R4 CHANGED 

;R4 SHOULD STILL EQUAL CONTENTS OF 'TILL' 
.•CHECK R5 UNCHANGED 



;***************TEST 43 - ERROR 
;R5 CHANGED 

:R5 SHOULD STILL EQUAL CONTENTS OF 'tSTAD" 
.VERIFY STACK POINTER IS RESTORED 
'BR IF OK 

;COPV BAD SP VALUE 

;ftft**ftftft********TEST 43 - ERROR 10********« 

:STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT ;'SAVR6;; 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 

;BR TO NEXT TEST 

; SOURCE 1 STRING 

.-MOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

.-HOST SIGNIFICANT DIGIT 



;*TEST 44 TEST INTERRUPTABILITY OF 'XNPN' 



t§T44: SCOPE 
TSTB 
BMI 

166124 CNP 



166036 



T44C0NT: 



BIT 
BEQ 
TST 
BNE 



aSUR :TEST BIT 7 OF SUR 

TST45 .SKIP TO NEXT TEST IF SET 

STPS.TCSR ;IS SLU USED FOR INTERRUPTS THE CONSOLE? 

T44c6nT BR. IF NOT t PERFORM INTERRUPTABILITY TEST 

«8IT0.$ENV ;IF YES. IS PROGRAM UNDER APT? 

liiir ifJ'Y^S.SJcK IF NOT m FIRST PASS 

TST45 ; IF NOT. BR t SKIP TEST 



••A S FUfll 



50(1(K6) 22-JAN-82 
i2-J>W-82 08:49 



E 6 

08:50 PAGE 70 

T44 TEST INTERRUPTABILITY OF 



3675 

5674 

5675 

5676 

5677 

3678 

3679 

3680 

3681 

3682 

56S3 

3684 

3685 

3686 

3687 

3688 

5689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

37C1 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 



0125oO 
012564 
012566 
012570 
012572 
012574 
012576 
012604 
012612 
012616 
012622 
012630 
012634 
012636 
012642 
012650 
012654 



004567 
000004 
013002 
000004 
013006 
000377 
012767 
012777 
005077 
004767 
013777 
004567 
000000 
106427 
052777 
004767 
000277 



012656 076052 

012660 106767 

012664 032777 

012672 001366 

012674 042767 

012702 023767 

012710 001401 

012712 104001 



002146 



012656 
015114 
166054 
002246 
000554 
002210 

000000 
000100 
002104 



166012 
000100 

177400 
000700 



166070 
166056 



166036 
166014 



RECWN: 
CnPNPC: 



165772 

165774 
165766 



012714 

012714 005700 

012716 001401 

012720 104002 

012722 005701 

012724 001401 

012726 104003 

012730 005702 

012732 001401 

012734 104004 

012736 005703 

012740 00U01 

012742 104005 

012744 020467 165704 

012750 001401 

012752 104006 



012754 020567 165676 
012760 001401 
012762 104007 



64$: 

65$: 
66$: 
67$: 
68$: 

69$: 



JSR 



NOV 

NOV 

CLR 

JSR 

NOV 

JSR 

.WORD 

NTPS 

BIS 

JSR 

sec 

CNPN 

NFPS 

BIT 

BNE 

BIC 

CNR 

BEQ 

ERROR 



TST 
BEO 
ERROR 

TST 
BEQ 
ERROR 

TST 
BEO 
ERROR 

TST 
BEO 
ERROR 

CNR 
BEQ 
ERROR 



CNP 
BEO 
ERROR 



R5,NPREP 

S1T44 
4 

S2T44 
377 

fCNPNPCPCI 
#INTR«aTVECT 

arpsu 

PC-TOONE 
atSNULL^aTBUF 
R5, XPSU 
0 

#0 

flOO.aTCSR 
PCGENR 



'Ct¥>H" SEQ 0069 

.'PREPARE ARGUNENTS FOR INSTRUCTION TEST 
: SOURCE 1 LENGTH 
;S0URCE1 ADDRESS 

;S0URC£2 LENGTH 

;S0URCE2 ADDRESS .. 

.•STORE N0N-7ER0 VALUE TO TEST R4 UNAFFECTED BY 'tNPN" IN 
.•STORE PC OF TEST INSTRUCTION 
.•POINT TTV VECTOR TO INTERRUPT ROUTINE 
.•ALLOW INTERRUPTS AFTER TTV INTERRUPT 
.-WAIT FOR SLU READY 
:SEND NULL CHARACTER 
.•STORE EXPECTED PSW 

.•ALLOW INTERRUPTS 
.•ENABLE TTY INTERRUPTS 
;SET UP GENERAL REGISTERS 
;SET UP THE COIVLENENT OF EXPECTED CCS 



CCODES .STORE RESULTANT PSW 

flOO.aTCSR ;IF INTERRUPTS ARE DISABLED. INSTRUCTION WAS INTERRUPTED 

RECNPN :BR t DO TEST AGAIN. IF INSTRUCTION WAS NOT INTERRUPTED 

#177400. CCODES .-CLEAR UNUSED BITS 

afEXPPSW. CCODES .-CHECK PSW AGAINST EXPECTED VALUE 

64$ .-BR, IF EQUAL 

l ;*ft*********«***TEST 44 - ERROR 1 ***•*»»*••*♦••* 

•PSW ERROR 

•EXPECTED PSW IS STORED AT ••SAVR6" 
.-ERRONEOUS SP VALUE IS AT •BADR6" 



RO 
65$ 

2 

Rl 
66$ 

3 

4 

R3 
^8$ 

R4.DSTLN 

69i 

6 



R5.0STAD 
70i 

7 



: CHECK R0>0 

;**********ft****TEST 44 - ERROR 2* 
;R0 SHOULD BE ZERO 
; CHECK RUO 

;************t**TEST 44 - ERROR 3« 
;R1 SHOULD BE ZERO 
.-CHECK R2«0 

;***************TEST 44 - ERROR 4* 
.•R2 SHOULD BE ZERO 
; CHECK R3-0 



;*********t*****TEST 44 - ERROR 5»***»***« 
:R3 SHOULD BE ZERO 
.-CHECK R4 UNCHANGED 
•BR IF OK 

;***************TEST 44 - ERROR 6********* 
•R4 CHANGED 

;R4 should STILL EQUAL CONTENTS Of 'TILL" 
: CHECK R5 unchanged 



:R5 changed 



»TEST 44 - ERROR 7* 
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F 6 

50 PAGE 71 
T44 TEST INTERRUPTABILITY OF 



3729 
3730 
3731 
3732 
3733 
573A 
3735 



3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

5770 

5771 

1772 

J773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 



012764 
012770 
012772 
012776 



013000 
013000 

oilwf 

013004 
013005 
013006 
013006 
013007 
013010 
013011 



013012 
013020 



013024 
013026 
013032 
013034 
013036 
013040 
013042 
013044 
013050 
013052 
013056 



023706 000702 
001403 

010637 000704 
104010 



000404 

071 
070 
067 
066 

071 
070 
067 
065 



016777 165654 
106427 000200 



70S: 



BEQ 
PtOV 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 



.EVEN 
165650 ENDT44: NOV 
«TPS 



71$: 
S1T44: 

S2T44: 



afSAVR6,SP 

71$ 

SP,a«6ADR6 
10 



EN0T44 

71 
70 
67 
66 

71 
70 

65 



TPSU.iTVECT 
#200 



•cmt" 

;R5 SHOULD STILL EQUAL CONTENTS OF 'DSTAO" 
.•VERIFY STACK POINTER IS RESTORED 
*BR IF OK 

•COPY BAD SP VALUE 

;***********ftft*ftTEST 44 - ERROR 10******«*« 

; STACK POINTER NOT RESTORED BY INSTRUCTION 
.•EXPECTED SP IS STORED AT •■SAVR6" 
.•ERRONEOUS SP VALUE IS AT '^R6" 

:BR TO END OF THIS TEST 

;S0URCE1 STRING 

;MOST SIGNIFICANT DIGIT 



;S0URCE2 STRING 

;n0ST SIGNIFICANT DIGIT 



SEO 0070 



000004 
004567 
000012 
013164 
}77777 
y77777 
000377 
004567 
000200 
004767 
000277 



•TEST 45 TEST "CVTNL" WITH SRC « +2.147,483.647 



013060 076053 



013062 

Ollo^4 
013102 
013104 



106767 
042767 
023767 
001401 
104001 



001700 



001774 
001702 



165610 
177400 
000700 



165602 
165574 



TST45: SCOPE 
JSR 



JSR 

.WORD 

JSR 

see 

CVTNL 

fVPS 

BIC 

C«P 

BEO 

ERROR 



R5,NPREP 
12 

ST45 
^77777 
\77777 
Z77 

R5.XPSW 
200 

PCGENR 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 
.SOURCE LENGTH 
.•SOURCE ADDRESS 

.•STORE ALL ONES TO LOAD INTO R2 I R3 REGISTERS 

.•STORE A N0N-2ERO VALUE TO TEST R4 UNAFFECTED BY XVTZL" 

;SET UP GENERAL REGISTERS 

;SET UP THE COPV^LEMENT OF EXPECTED CC*S 



013106 

013106 005700 

013110 001401 

013112 104002 



64$: 



CCODES :STORE RESULTANT PSW 

Sl^i^SSSIIs ^ZS&^ EXACTED VAtUE 

f » ::S!;.i'..l!!«i...TEST « - erm.. u. 

•PSU ERROR 

•EXPECTED PSW IS STORED AT ."SAVRe)" 
•ERRONEOUS SP VALUE IS AT 'BADR6" 



TST 
BEO 
ERROR 



RO 
65$ 

2 



.•CHECK ROsO 



>TEST 45 - ERROR 2* 
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08:50 PAGE 72 
U5 TEST 



G 6 

XVTNl" with SRC = ♦2.U7.A83.6A7 



SEQ 0071 



5785 

3786 

3787 

3788 

3789 

3790 

3791 

379 

379 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

::26 

38|7 
28 



013114 005701 

013116 001401 

013120 104003 

013122 020227 077777 

013126 001401 

013130 104004 



013132 020327 m777 
013136 001401 
013140 104005 



013142 020467 165506 
013146 001401 
013150 104006 



013152 020567 165500 
013156 001401 
013160 104007 



013162 

013162 000405 
013164 

01*164 062 

013165 061 

013166 064 

013167 067 

013170 064 

013171 070 

013172 063 

013173 066 

013174 064 

013175 067 



65S: 
66S: 

67S: 

68S: 

69$: 

70S: 
ST45: 



TST 
BEQ 

:rror 

CHP 
BEQ 
ERROR 



CHP 
BEQ 
ERROR 



BEQ 
ERROR 



BEQ 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



R1 
66S 

3 

R2.0O77777 

67i 

4 



RlJiy77777 

68i 

5 



R4.0STLN 

69i 

6 



R5.0STA0 

70i 

7 



TST46 

62 
61 
64 
67 
64 

1% 

66 
64 
67 



:R0 SHOULD BE ZERO 
.•CHECK R1*0 

;*****ft»**»*****TEST 45 - ERROR 3» 

:R1 SHOULD BF ZERO 

.■CHECK UPPEI^ WORD OF AMSUER 

:BR IF OK 

;***************TEST 45 - ERROR 4« 
; UPPER UORD OF ANSWER IS IN ERROR 
.EXPECTED VALUE IS 077777 
.•ERRONEOUS ANSWER VALUE IS IN R2 
; CHECK LOWER WORD OF ANSWER 
*6R IF OK 

;**ftftft**********TEST 45 - ERROR 5« 
; LOWER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS y77777 
:ERRORNEOUS ANSWER IS IN R3 
.•CHECK R4 UNCHANGED 



;***************TEST 45 - ERROR 6************« 
;R4 CHANGED ,. 
;R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
; CHECK R5 UNCHANGED 
:BR IF OK , _ , 

;***************TEST 45 - ERROR 7**«**«*****«t 
•R5 CHANGED 

;R5 SHOULD STILL EQUAL THE CONTENTS OF 'DSTAO' 

;BR TO NEXT TEST 

.•SOURCE STRING 

:nOST SIGNIFICANT DIGIT 



013176 000004 

013200 004567 001526 

013204 00QQ12 

PI 3206 013340 

013210 y77777 

013212 y77777 

013214 000377 

013216 004567 001622 

013222 000202 



•iTEST 46 TEST 'tVTNL" WITH SRC* ♦2.687,s«3,648, WfJJiJJ*!!"" 

tST46: SCOPE 

JSR RS.NPREP 

12 

ST46 
y77777 

377''' .-STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY -tVTZL- 

JSR R5.XPSW 
.WORD 202 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 
: SOURCE LENGTH 

isTORE^AU^ONES TO LOAD INTO R2 I R3 REGISTERS 
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3841 

3S42 

3*45 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

38<^7 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

388. 

3885 

:>886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 



013224 004767 001530 

013230 000277 

013232 000242 

013234 076053 

013236 106767 165434 

013242 042767 177400 165426 

013250 023767 000700 165420 

013256 001401 

013260 104001 



013262 

013262 005700 

01 W 001401 

01i266 104002 

013270 005701 

013272 001401 

013274 104003 

013276 020227 014631 

013302 001401 

013304 104004 



013306 020327 031462 
013312 001401 
013314 104005 



013316 
013322 
013324 



013326 
013332 
013334 



013336 
013336 
013340 
013340 
013341 
013342 
013343 
013344 
013345 
013346 
013347 



020467 165332 

001401 

104006 



020567 165324 

001401 

104007 



000405 

064 
062 
071 
064 
071 
066 
067 
062 



H 6 

CVTNL" WITH SRC= ♦2.687.483.648. OVERFLOW WITH CORRECT SIGN SEQ 0072 

PC.6ENR .SET UP GENERAL REGISTERS 

;-SET UP THE C0(VLE«ENT Of EXPECTED CCS 



CCODES .-STORE RESULTANT PSW 

«177400,CCODES .-CLEAR UNUSED BITS 
MTEXPPSU. CCODES ; CHECK PSU AGAINST EXPECTED VALUE 



64$ 

1 



RO 
65$ 

2 

R1 
66$ 

3 



R2. #01 4631 

67i 

4 



R3. #031 462 
68i 

5 



R4.DSTLN 

69i 

6 



R5-0STAD 

70i 

7 



TST47 

64 
62 
71 

« 

66 
67 
62 



:BR. IF EQUAL 
;***************TEST 46 - ERROR 1* 
*PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'EADR6" 

.•CHECK R0=0 

;***************TEST 46 - ERROR 2* 
:R0 SHOULD BE ZERO 
.•CHECK R1=0 

;***************TEST 46 - ERROR 
;R1 SHOULD BE ZERO 
: CHECK UPPER WORD OF ANSWER 
.•BR IF OK 

;*****t*********TEST 46 - ERROR 4« 
.•UPPER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS 014631 
.•ERRONEOUS ANSWER VALUE IS IN R2 
.•CHECK LOWER WORD OF ANSWER 
;BR IF OK 

;***************TEST 46 - ERROR 5* 
.•LOWER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS 031462 
.ERRORNEOUS ANSWER IS IN R3 
.•CHECK R4 UNCHANGED 



;***************TEST 46 - ERROR 6»*********«"* 
'R4 CHANGED 

;R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
.•CHECK R5 UNCHANGED 
'BR IF OK 

;********ft**t*t*TEST 46 - FRROR 7**«**********« 

•RS CHANGED 

;R5 SHOULD STILL EQUAL THE CONTENTS OF "tSTAD" 

;6R TO NEXT TEST 

.•SOURCE STRING 

;NOST SIGNIFICANT DIGIT 



nAlH. NACYll 30(10A6) 



071 
066 



L VFw^ JO • 


P1 1 ?? 

r I 1 CC 


JOTf 


W 1 JJJV 














JTV 1 
























J Tvr 




J TWO 


01 




OIXXAA 


Win 


011^66 


KOI 1 




1 c 




j~ ' J 


015576 


'KQ^C 


01 ^400 

w 1 w 


^91 S 


015404 


J~ ' o 




<91 7 




^918 
J7 1 o 










015412 




015416 


^9?2 


015424 




015452 




015454 
















015456 


^979 


015456 




015440 


^9^1 


013442 






X9^^ 


015444 


^9^ 


015446 




015450 


^9^ 




W?7 


i,13452 




015456 


^9^9 


013460 


^940 




^941 




^94? 




^94^ 


015462 


'^944 


015466 


^94^ 


015470 






^947 








3949 


013472 


3950 


013476 


3951 


013500 


3952 
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j:49 T46 TEST 'tVTNL' 



I 6 

WITH SRC« ♦2«687«483«648, OVERFLOW WITH CORRECT SIGN 



SEO 007? 



.BYTE 
.BYTE 



71 
66 



000004 

004567 001352 
000012 
013514 
y7777T 
y77777 
000377 

004567 00r^6 
000212 

004767 001354 
000277 
000242 

076053 

106767 165260 
042767 177400 165252 
023767 000700 165244 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 

020227 100000 

001401 

104004 



•TEST 47 

* II ik ft ft ft 4 4 4 4 ^ il 

th47: SCOPE 
JSR 



JSR 
.WORD 

J^R 

sec 

CLV 

CVTNL 

NFPS 

SIC 

CMP 

BEQ 

ERROR 



TEST "CVTNL" WITH SRC « ♦2,147,483,648, OVERFLOW 



020327 000000 

001401 

104005 



020467 165156 

001401 

104006 



64S: 

65$: 
66S: 

67S: 

68$: 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CHP 
BEQ 
ERROR 



C«P 
BEQ 
ERROR 



CHP 
BEQ 
ERROR 



R5,NPREP 
12 

ST47 
^77777 
^77777 
177 

R5.XPSW 
2l5 

PCGENR 



.•PREPARE ARGUMENTS FOR INSTRUCTION TEST 
.•SOURCE LENGTH 
.•SOURCE ADDRESS 

.•STORE ALL ONES TO LOAD INTO R2 t R3 REGISTERS 

.•STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tVTZL' 

;SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



; STORE RESULTANT PSW 
...7400.CC0DES : CLEAR UNUSED BITS 
a^EXPPSU.CCODES .CHECK PSU AGAINST EXPECTED VALUE 
;8R. IF EQUAL 

;.fto************TEST 47 - ERROR 1" 
•PSW ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT 'BADR6" 



CCQDES 
#17 

a#E 

64$ 

1 



RO 
65$ 

2 



: CHECK RO^O 



R1 
66$ 

3 



;***ft*ftft*ftft****ftTEST 47 - ERROR 2* 
:R0 SHOULD BE ZERO 
.•CHECK RisO 

;ft****ft*ft*ftft***ftTEST 47 - ERROR 3« 
:R1 SHOULD BE ZERO 
R2t#1 00000 .-CHECK UPPER WORD OF ANSWER 
67i ;8R IF OK 

Z ;ft*ft*****ft*it**ft«TEST 47 - ERROR 4« 

.•UPPER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS 100000 
; ERRONEOUS ANSWER VALUE IS IN R2 
.•CHECK l6wER word OF ANSWER 
;8R IF OK 

;ft*ft*ft***ft**ftftft*TEST 47 - ERROR 5* 
.•LOWER WORD OF ANSWER IS IN ERROR 
.EXPECTED VALUE IS 0 
:ERRORNEOUS ANSWER IS IN R3 
.•CHECK R4 UNCHANGED 



R3.#0 
68i 

5 



R4.DSTLN 
69i 
6 



;R4 CHANGED 



>fEST 47 - ERROR 6< 
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J 6 

'CVTNL" WITH SRC = ♦2.U7.<83,648, OVERFLOW 



SEC 0074 



3953 

395A 

3955 

3956 

3957 

3958 

5959 

3960 

3961 

3962 

3963 

396A 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 



013502 
013506 
013510 



013512 
013512 
013514 
013514 
013515 
013516 
013517 
013520 
013521 
013522 
013523 
013524 
013525 



020567 
001401 
104007 



000405 

OvS2 
06^ 
064 
067 
064 
070 
063 
066 
064 
070 



013526 
013530 
013534 
013536 
013540 
013542 
013544 
013546 
013552 
013554 
013560 
013562 



000004 
004567 
000012 
013670 
M7777 
\77777 
000577 
004567 
000210 
004767 
000277 
000250 



013564 076053 



013566 
013572 
013600 
013606 
013610 



013612 
013612 
01 3614 
013616 

013620 
013622 
013624 



106767 
042767 
023767 
001401 
104001 



005700 
001401 
104002 

005701 
001401 
104003 



165150 



69S: 

70$: 
ST47: 



BEQ 
ERROR 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



R5.DSTA0 

70i 

7 



TST50 

62 
61 
64 
67 
64 
70 
63 
66 
64 
70 



R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

****«***t**tt**TEST 47 - ERROR 7*******«»«*««« 

R5 CHANGED 

RS SHOULD STILL EQUAL THE CONTENTS OF '^STAD" 

BR TO NEXT TEST 

SOURCE STRING 

HOST SIGNIFICANT DIGIT 



.■•TEST 50 



TEST "CVTNL" WITH SRC - -2.147,483.648 



001176 



001272 
001200 



165104 
177400 
000700 



165076 
165070 



TST50: SCOPE 
JSR 



JSR 

.WORD 

JSR 

sec 

CLN 

CVTNL 

«FPS 

BIC 

CHP 

BEQ 

ERROR 



R5.NPREP 
12 

ST50 
y77777 
^77777 
177 

R5-XPSW 
2l6 

PC.6ENR 



.PREPARE ARGUMENTS FOR INSTRUCTION TEST 
.SOURCE LENGTH 
.•SOURCE ADDRESS 

.STORE ALL ONES TO LOAD INTO R2 % R3 REGISTERS 

.•STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tVTZL* 



.-SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



64S: 



65S: 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 



CCODES 

#1<7400.CC0DES 

arexppsu. CCODES 

64$ 

1 



RO 
65S 

2 

R1 

66$ 

3 



STORE RESULTANT PSU 

CLEAR UNUSED BITS 

CHECK PSW AGAINST EXPECTED VALUE 

BR. IF EQUAL 

*******ft*******TEST 50 - ERROR 1 ••••••*••••••»• 

PSW ERROR 

EXPECTED PSW IS STORED AT "SAVR6" 
ERRONEOUS SP VALUE IS AT 'BADR6" 

CHECK RO-0 

***************TEST 50 - ERROR 2*************** 
RO SHOULD BE ZERO 
CHECK RI^O 



►TEST 50 - ERROR 3« 
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100000 



K 6 

08:50 PAGE 76 

TEST "CVTNL" WITH SRC = -2, U7. 483. 648 



4009 






4010 


01 3626 


020227 


4011 


01 3632 


001401 


4012 


013634 


104004 


4013 






4014 






4015 






4016 


01 3636 


020327 


4017 


013642 


001401 


4018 


013644 


104005 


4019 






4020 






4021 






4022 


013646 


020467 


4023 


013652 


001401 


4024 


013654 


104006 


4025 






4026 






4027 


01 3656 


020567 


4028 


013662 


001401 


4029 


013664 


104007 


4030 






4031 






4032 


013666 




4033 


013666 


000405 


4034 


013670 




4035 


013670 


062 


4036 


013671 


061 


4037 


013672 


064 


4038 


013673 


067 


4039 


013674 


064 


4040 


013675 


070 


4041 


013676 


063 


4042 


013677 


066 


4043 


013700 


064 


4044 


013701 


170 


4045 






4046 






4047 






4048 






4049 






4050 






4051 


013702 


000004 


4052 


013704 


004567 


4053 


013710 


000012 


4054 


013712 


014044 


4055 


013714 


^77777 


4056 


013716 


y77777 


4057 


013720 


000577 




01 

U 1 jf cc 




4059 


013726 


000202 


4060 


013730 


004767 


4061 


013734 


000265 


4062 


013736 


000252 


4063 
4064 


013740 


076053 



000000 



165002 



164774 



T50 
66S: 

67S: 

68S: 

69S: 

70$; 
ST50; 



SEQ 



CMP 
BEQ 
ERROR 



CMP 
BEO 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



BR 

.BYTE 
.BYIE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



R2x4rl 00000 
67i 
4 



R3.#0 
68i 

5 



R4.DSTLN 
69* 

6 



R5,DSTAD 

70$ 

7 



TST51 

62 
61 
64 
67 
64 
70 
63 
66 
64 
170 



R1 SHOULD BE ZERO 
CHECK UPPER WORD OF ANSWER 
BR IF OK 

***************TEST 50 - ERROR 4* 
UPPER WORD OF ANSWER IS IN ERROR 
EXPECTED VALUE IS 100000 
ERRONEOUS ANSWER VALUE IS IN R2 
.•CHECK LOWER WORD OF ANSWER 
BR IF OK 

*»*************TEST 50 - ERROR 5* 
LOWER WORD OF ANSWER IS IN ERROR 
EXPECTED VALUE IS 0 
ERRORNEOUS ANSWER IS IN 
CHECK R4 UNCHANGED 



ft**ftftft*ft*****ftftTEST 50 - ERROR 6**"********** 

R4 CHANGED 

R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
CHECK R5 UNCHANGED 
BR IF OK 

ft*****t********TEST 50 - ERROR 7***»»********* 

R5 CHANGED 

R5 SHOULD STILL EQUAL THE CONTENTS OF 'DSTAD" 

BR TO NEXT TEST 

SOURCE STRING 

HOST SIGNIFICANT DIGIT 



001022 



001116 
001024 



;*TEST 51 TEST "CVTNL" WITH SRC - -2,147.483,649, OVERFLOW 

tST51:* 



SCOPE 
JSR 



JSR 
.WORD 
JSR 

♦SEZ.'SEC 
♦CLNJCLV 

CVTNL 



R5,NPREP 
12 
ST51 
y77777 
y77777 
377 

R5-\PSW 
20^ 

PCGENR 



: PREPARE AR6UNENTS FOR INSTRUCTION TEST 
.•SOURCE LENGTH 
; SOURCE ADDRESS 

.•STORE ALL ONES TO LOAD INTO R2 ft R3 REGISTERS 

.STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tVTZL* 



:SET UP GENERAL REGISTERS 

.SET UP THE COMPLEMENT OF EXPECTED CCS 



.HAIN. nA^i^^ 50(10A6) 22-JAN-82 08:50 PAGE 
CVrAJB.Pn 22-JAN-82 C8:A9 T51 



4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4075 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

408£ 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4'. 02 

/.(03 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

411? 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 



013742 
013746 
013754 
013762 
013764 



013766 
013766 
013770 
013772 

013774 
013776 
014000 

014002 
014006 
014010 



014012 
014016 
014020 



014022 
014026 
014030 



014032 
014036 
014040 



014042 
014042 
014044 
014044 
014045 
014046 
014047 
014050 
014051 
014052 
014053 
014054 
014055 



106767 164730 
042767 177400 164722 
023767 000700 164714 
001401 
104001 



005700 
00U01 
104002 

005701 
001401 
104003 

020227 077777 

001401 

104004 



020327 ^77777 

001401 

104005 



020467 164626 

001401 

104006 



020567 164620 

001401 

104007 



000405 

062 
061 
064 
067 
064 
070 
063 
066 
064 
171 



64$: 

65$: 
66$: 

67$: 

68$: 
69$: 

70$: 

ST51; 



L 6 

77 

TEST "CVTNL" yiTH SRC = -2. U7. 483. 649. OVERFLOW 

HFPS CCODES .STORE RESULTANT PSU 

BIC #177400, CCODES .-CLEAR UNUSED BITS 

CMP ftTEXPPSU.CCODES .-CHECK PSU AGAINST EXPECTED VALUE 

BEO 64$ .-BR. IF EQUAL 

ERROR 1 ;**»*»**t»»»»tt»TEST 51 - ERROR 1»»»**»*****«**' 

-PSU ERROR 

•EXPECTED PSW IS STORED AT "SAVR6" 
.•ERRONEOUS SP VALUE IS AT •BA0R6" 

TST RO ; CHECK R0=0 

BEQ 65$ 

ERROR 2 .-•••••••••••••••TEST 51 - ERROR 2***"********» 

;R0 SHOULD BE ZERO 
TST R1 .-CHECK R1=0 

BEO 66$ 

ERROR 3 ;*******»**»****TEST 51 - ERROR 3************** 

:R1 SHOULD BE ZERO 
CMP fi2.M077777 .-CHECK UPPER WORD OF ANSWER 
BEQ 67$ :BR IF OK 

ERROR 4 ;*»*»»»»»***»*»*TEST 51 - ERROR 4************** 

.•UPPER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS 077777 
.•ERRONEOUS ANSWER VALUE IS IN R2 

C/V> Rl.lty77777 ; CHECK LOWER WORD OF ANSWER 

BEQ 68$ :BR IF OK 

ERROR 5 ;**»*»******»»»»TEST 51 - ERROR 5************** 

.•LOWER WORD OF ANSWER IS IN ERROR 
; EXPECTED VALUE IS ^77777 
.-ERRORNEOUS ANSWER IS IN R3 

CnP R4.DSTLN .-CHECK R4 UNCHANGED 

BEQ 69$ 

ERROR 6 ...••*******.*«*TEST 51 - ERROR 6*"*""****** 

;R4 CHANGED 

:R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
CnP R5.DSTAD ; CHECK R5 UNCHANGED 

BEQ 70$ ;BR IF OK 

ERROR 7 ..••.•.•••******«TEST 51 - ERROR 7*************« 

;R5 CHANGED 

;RS SHOULD STILL EQUAL THE CONTENTS OF 'DSTAD" 

BR TST52 ;8R TO NEXT TEST 

.•SOURCE STRING 

.BYTE 62 .-MOST SIGNIFICANT DIGIT 

.8TTE 61 

.BYTE 64 

.BYTE 67 

.BYTE 64 

.BYTE 70 

.BYTE 63 

.BYTE 66 

.BYTE 64 

.BYTE 171 



SEQ 0076 



n 6 
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CVKAJB.Pn 22-JAN-82 08:49 T52 TEST "CVTNL" WITH SRC LENGTH * 1, SOURCE= 60.60 

• •***************************#***************#***************«*** 

•iTEST 52 TEST "CVTNL" WITH SRC LENGTH = 1. SOURCE* 60.60 

tST52: SCOPE 

JSR R5.NPREP .-PREPARE ARGUMENTS FOR INSTRUCTION TEST 

.•SOURCE LENGTH 
; SOURCE ADDRESS 

.STORE ALL ONES TO LOAD INTO R2 t R3 REGISTERS 



SEQ 0077 



4121 






4122 






4123 






4124 


014056 


000004 


4125 


014060 


004567 


4126 


014064 


000002 


4127 


014066 


014220 


4128 


014070 


^77777 


4129 


014072 


y77777 


4130 


014074 


000377 


4131 


014076 


004567 


4132 


014102 


000204 


4133 


014104 


004767 


4134 


014110 


000277 


4135 


014112 


000244 


4136 




076053 


4137 


014114 


4138 






4139 


014116 


106767 


4140 


014122 


042767 


4141 


014130 


023767 


4142 


014136 


001401 


4143 


014140 


104001 


4144 






4145 






4146 






4147 


014142 


005700 


4148 


014142 


4149 


014144 


001401 


4150 


014146 


104002 


4151 






4152 


014150 


005701 


4153 


014152 


001401 


4154 


014154 


104003 


4155 






4156 


014156 


020227 


4157 


014162 


001401 


4158 


014164 


104004 


4159 






4160 






4161 




020327 


4162 


014166 


4163 


014172 


001401 


4164 


014174 


104005 


4165 






4166 






4167 






4168 


014176 


020467 


4169 


014202 


001401 


4170 


014204 


104006 


4171 






4172 






4173 


014206 


020567 


4174 


014212 


001401 


4175 


014214 


104007 


4176 







64$: 



65$: 



66$: 



67$: 



68$: 



69$: 



JSR 

.WORD 

JSR 

sec 

CLZ 

CVTNL 

HFPS 

BIC 

C«P 

BEQ 

ERROR 



TST 
BEQ 
ERROR 

TST 
BEQ 
ERROR 

CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



CMP 
BEQ 
ERROR 



R5,NPREP 
2 

ST52 
}77777 
\77777 
377 

RS.XPSW 
204 

PC.6ENR 



; STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY "CVTZL' 



:SET UP GENERAL REGISTERS 

;SET UP THE COMPLEMENT OF EXPECTED CCS 



CCODES .-STORE RESULTANT PSW 

#177400. CCODES .-CLEAR UNUSED BITS 

aVEXPPSU. CCODES ; CHECK PSW AGAINST EXPECTED VALUE 

64$ ;8R. IF EQUAL 

;*t*************TEST 52 - ERROR 

'PSW ERROR 

•EXPECTED PSW IS STORED AT ••SAVR6" 
.-ERRONEOUS SP VALUE IS AT 'BADR6" 



RO 
65$ 

2 

R1 

66$ 

3 

R2-#0 

67i 

4 



R3.#0 
68i 

5 



.-CHECK ROsO 

;***fk***********TEST 52 - ERROR 2*************** 
.-RO SHOULD BE ZERO 
.•CHECK RIsO 



R4.DSTLN 
69i 
6 



R5.DSTAD 
70i 
7 



;***************TEST 52 - ERROR 3*»**********»** 

.-R1 SHOULD BE ZERO 
.-CHECK UPPER WORD OF ANSWER 
*BR IF OK 

)****ft**********TEST 52 - ERROR 4**»**»»*«««**** 
lyX'l^^R WORD OF ANSWER IS IN ERROR 
.-EXPECTED VALUE IS 0 
.-ERRONEOUS ANSWER VALUE IS IN R2 
.-CHECK LOWER WORD OF ANSWER 
*6R IF OK 

t**ft***********ftTEST 52 - ERROR S*************** 
.-LOWER WORD OF ANSWER IS IN ERROR 
.-EXPECTED VALUE IS 0 
.-ERRORNEOUS ANSWER IS IN R3 
.-CHECK R4 UNCHANGED 

•***************TEST 52 - ERROR 6*************** 
.-R4 CHANGED ,^ .. 

;R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
.-CHECK R5 UNCHANGED 
'BR IF OK 

'***k***********TEST 52 - ERROR 7*************** 

;R5 CHANGED 
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N 6 

•CVTNL" WITH SRC LENGTH = 1, SOURCE= 60,60 



SEO 0078 



4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

418S 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

'.203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

m 
m 

*i 

4231 
4232 



|8 

l9 



014216 
014216 
014220 
014220 
014221 



000401 

060 
060 



70$: 
ST52: 



BR 

.BYTE 
.BYTE 



TST53 

60 
60 



;R5 SHOULD STILL EQUAL THE CONTENTS OF 'DSTAD" 

;8R TO NEXT TEST 

: SOURCE STRING 

.-MOST SIGNIFICANT DIGIT 



•TEST 53 



TEST INTERRUPTABILITY OF "CVTNL' 



niz. ^oo 


t\t\f\f\l\L 






1 O 1 Jjt 




UtHCC'* 


IUj' f f 


lO*»JlU 






TCTA 
I Ola 


Ul HCJV 










BMf 


U 1 '*cjc 


UcOr Or 




1 0*»'»t"» 








WlUUr 








one 




nX57A7 








nrT 


U \ HCj\j 


nnM^nx 










\i\'*Cjc. 


W/jfOr 


IvHj id 






TST 


\t \ '*CjO 


noi 117 








one 


V 1 HCOM 














\JV*JOf 


VUU't'^O 






* iCR 
J on 


014264 


000012 










014266 


014472 










014270 


^77777 










014272 


}77777 










ML77L 














01 P7A7 

V 1 cr Of 


014'^^^ 


1A4370 




MOV 




01P777 


01^114 


164lS& 




MOV 




00^077 








%kri 


w 1 1 D 


004 7A7 












013777 


000554 


164336 




MOV 


014330 


004567 


000510 






JSR 


014334 


000000 








.WORD 


0143»6 


106427 


000000 






HTPS 


014342 


052777 


000100 


164314 




BIS 


014350 


004767 


000404 




RECVTN: 


JSR 


014354 


000277 








sec 


014356 


076053 






CVTPC; 


CVTNL 


014360 


106767 


164312 






mps 


014364 


032777 


000100 


164272 




BIT 


014372 


001366 








BNE 


014374 


042767 


177400 


164274 




BIC 


014402 


023767 


000700 


164266 




CMP 


014410 


001401 








BEO 


014412 


104001 








ERROR 



)14414 
>14414 
)14416 
)U420 



QQ570O 
001401 
104002 



64$: 



TST 
BEO 
ERROR 



8SWR 
$EOP 

$TPS,TCSR 

CVTCONT 

#8IT0.$ENV 

CVTCONT 

$PASS 

$EOP 

R5,NPREP 
12 

ST53 
y77777 
\77777 
Z77 

fCVTPC.PCI 
flNTR.arVECT 

aTPsu 

PC.TOONE 
»r$NULL,8TBUF 
R5, XPSU 

0 

fO 

fioo.arcsR 

PC.GENR 



CCODES 

fioo.arcsR 

RECVTN 

#177400,CC0DES 
a#EXPP$U, CCODES 
64$ 

1 



It 



TEST BIT 7 OF SWR 

SKIP TO NEXT TEST IF SET 

IS SLU USED FOR INTERRUPTS THE CONSOLE? 

BR« IF NOT t PERFORM INTERRUPTABILITY TEST 

IF YES, IS PRC6RAN UNDER APT? 

BR« IF NOT 

IF YES^CHECK IF NOT ON FIRST PASS 
IF NOT, BR t SKIP TEST 

PREPARE ARGUMENTS FOR INSTRUCTION TEST 
SOURCE LENGTH 
SOURCE ADDRESS 

STORE ALL ONES TO LOAD INTO R2 t R3 REGISTERS 

STORE A NON-ZERO VALUE TO TEST R4 UNAFFECTED BY 'tVTZL" 

STORE PC OF TEST INSTRUCTION 

POINT TTY VECTOR TO INTERRUPT ROUTINE 

ALLOW INTERRUPTS AFTER TTY INTERRUPT 

UAIT FOR SLU READY 

SEND NULL CHARACTER 

STORE EXPECTED PSU 

ALLOW INTERRUPTS 

ENABLE TTY INTERRUPTS 

SET UP GENERAL REGISTERS 

SET UP THE COMPLEMENT OF EXPECTED CC*S 



STORE RESULTANT PSW 

IF INTERRUPTS ARE DISABLED. INSTRUCTION WAS INTERRUPTED 

BR t DO TEST AGAIN, IF INSTRUCTION WAS NOT INTERRUPTED 

CLEAR UNUSED BITS 

CHECK PSW AGAINST EXPECTED VALUE 

BR, IF EOUAL 

%**************TEST 53 - ERROR ^•••••••••••••^ 

PSW ERROR 

EXPECTED PSW IS STORED AT ••SAVR6" 
ERRONEOUS SP VALUE IS AT '^R6" 



CHECK RO^O 

•******ft**t**ftftTEST 53 - ERROR 2* 
RO SHOULD BE ZERO 
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T53 TEST INTERRUPTABILITY OF 



4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 



014422 
014424 
014426 

014430 
014434 
014456 



014440 
014444 
0U446 



014450 
01445<. 
014456 



014460 
014464 
014466 



014470 
014470 
014472 
014472 
014473 
014474 
014475 
014476 
014477 
014500 
014501 
014502 
014503 

014504 
014512 



014516 
014516 
014520 
014524 
014530 
0U536 



005701 
001401 
104003 

020227 
001401 
104004 



020327 
001401 
104005 



020467 
001401 
104006 



020567 
001401 
104007 



000405 

061 
064 
063 
061 
066 
067 
067 
066 
061 
060 

016777 
106427 



052525 



125252 



164200 



164172 



65$: 
66S: 

67$: 

68$: 

69$: 

70$: 
ST53: 



TST R1 

BEQ 66$ 

ERROR 3 

C«> R2-#052525 

BEQ 67$ 

ERROR 4 



Clip R3 -#125252 
BEQ 68$ 
ERROR 5 



CMP R4.0STLN 
BEQ 69$ 
ERROR 6 



CHP R5.DSTAD 
BEQ 70$ 
ERROR 7 



BR 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



ENDT53 

61 
64 
63 
61 
66 
67 
67 
66 
61 
60 



164162 
000200 



164156 EN0T53: MOV TPSU^aTVECT 
HTPS #200 
.SBTTL EMO Of PASS ROUTINE 



•CVTNL" 
.•CHECK R1=0 



SEQ 0079 



;t*t» •••TEST 53 - ERROR 3* 

;R1 SHOULD BE ZERO 

.CHECK UPPER WORD OF ANSWER 

:BR IF OK 

..^^•••••••••••••TEST 53 - ERROR 4« 

.•UPPER WORD OF ANSWER IS IN ERROR 
.EXPECTED VALUE IS 052525 
.ERRONEOUS ANSWER VALUE IS IN R2 
.CHECK LOWER WORD OF ANSWER 
;BR IF OK 

.■•^••^••••••••••TEST 53 - ERROR 5* 

.LOWER WORD OF ANSWER IS IN ERROR 
.•EXPECTED VALUE IS 125252 
:ERRORNEOUS ANSWER IS IN R3 
.-CHECK R4 UNCHANGED 



^.^^^^•••••••••••TEST 53 - ERROR 6*************« 

;R4 CHANGED .. 
:R4 SHOULD STILL EQUAL TH CONTENTS OF 'TILL" 
.CHECK R5 UNCHANGED 
;BR IF OK 

;***•••* ^•••••••TEST 53 - ERROR 

'R5 CHANGED 

;R5 SHOULD STILL EQUAL THE CONTENTS Of 'tSTAD" 

;BR TO END OF THIS TEST 

.•SOURCE STRING 

.-HOST SIGNIFICANT DIGIT 



.'•INCREMENT THE PASS NUMBER ($PASS) 
;*If Stt12=1 INHIBIT TRACE TRAP 
.-•IF THERES A MONITOR 60 TO IT 
.••IF THERE ISN'T JUMP TO BEGIN 



000004 

005067 163756 
005267 164044 
042767 100000 
005327 



$EOP: 



164036 



SCOPE 

CLR 

INC 

BIC 

DEC 



STSTNM 
SPASS 

#100000.$PASS 
(PC)* 



;;ZERO THE TEST 
;; INCREMENT THE 
.-.DON'T ALLOW A 
.-.-LOOP? 



NUMBER 
PASS NUMBER 
NEG. NUMBER 
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A289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4502 

4303 

4504 

4305 

4306 

4507 

4308 

4309 

^510 

4311 

4312 

4313 

4314 

4315 

*,316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 



014540 
014542 
014544 
014546 
014550 
014552 
014556 
014562 
014564 
014566 
014572 

014574 
014574 
014600 
014602 
014604 
014606 
014610 
014612 
014614 
014614 
014616 
014622 
014630 
014632 
014636 
014640 
014644 
014650 



014652 
014652 
014654 
014656 
0U660 

014664 
014672 
014700 



014702 
014706 



000001 
003024 
012737 
000001 
014540 
104401 
013700 
001414 
005046 
012746 
000426 



013700 
001405 
UOOOOS 
004710 
000240 
000240 
000240 

104400 
042716 
032777 
001005 
005167 
100402 
052716 
012746 
000002 



014664 
000042 



014574 
000042 



000020 
010000 

000020 

000020 
014652 



163710 



000137 
001300 
000000 

377 377 
014664 

005015 047105 
040520 051523 

000 
014702 



011637 000706 
104200 



000 

020104 
020040 



SEOPCT: .WORD 
BGT 
MOV 

SENDCT: .WORD 
$EOPCT 
TYPE. 

SGET42: MOV 
BEQ 
CLR 
NOV 
BR 



SCLR.T: 



SENDAD: 



SDOAGN: 



IS: 

SRTRN: 



SLOOP: 



NOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

TRAP 

BIC 

BIT 

BNE 

CON 

BNI 

BIS 

NOV 

RTI 



1 

SDOAGN 

(PC)*,a(PC)* 

1 

ENDNSG 

a/r42,R0 

SDOAGN 
-ISP) 

*SCLR.T,-(SP> 
SRTRN 



»r42,R0 
SDOAGN 

PC.(RO) 



#20, (SP) 

ireiTi2,asuR 

IS 

STBIT 
IS 

#20, (SP) 
#SLOOP.-(SP) 



JNP 
.UORD 
.WORD 



SRTNAD 
STBIT: 

SENULL: .BYTE 
.EVEN 

ENDNSG 



8(PC)+ 

BEGIN 

0 

-1,-1.0 



;;yES 

;; RESTORE COUNTER 



.-TYPE 'tND PASS" 

::GET NONITOR ADDRESS 

; .-BRANCH IF NO NONITOR 

;; INSURE THE 'T* BIT IS CLEAR 

; .-SETUP FOR AN RTI OR RTT 

::60 DO AN RTI OR RTT TO LOAD THE 

;;WITH A CLEARED 'T" BIT 

:; INSURE RO CONTAINS THE NONITORS 
.-.-RETURN ADDRESS 
;; CLEAR THE WORLD 
;,-G0 TO NONITOR 
:,-SAVE ROON 

;;FOR 
;;AfTll 

::PUSH OLD PSW and PC ON STACK 
;; CLEAR THE '7" BIT 
;;RUN WITH TRACE T">AP? 
- 'BR IF NO 

;;IS IT TINE FOR TRACE TRAP 
;;8R IF NO 
,-;SET TRACE TRAP 
;;JUNP TO START OF TEST 
.-.•RETURN— THIS IS CHANGED TO 
;;AN "Ml" IF "RJJ" IS A LEGAL 
;; INSTRUCTION 

.-.-RETURN 

;:'T' BIT STATE INDICATOR 
;;NULL CHARACTER STRING 



P3W 



014710 000000 



014712 011637 000706 
014716 104204 



.ASCIZ <15><12>/END PASS / 



.EVEN 

.-ROUTINE TO REPtMT UNEXPECTED TRAPS TO LOCATION 0 

tSeRO: NOV (Sp5r,a#0LDPC .-GET PC+2 WHERE UNEXPECTED TRAP OCCURRFD 
ERROR 200 ;*»******»*ERROR 200**««****«« 

.-UNEXPECTED TRAP TO LOCATION 0 

•'lOLDPC" CONTAINS THE PC*2 OF THE TRAP OCCURRENCE 
HALT .-PROGRAN NUST BE RESTARTED AT THIS POINT 

f»«JS "'%riJSE5{P "^S'?ciOT !i.EXPf CTED jmm TRAP oa^m 

ERROR 204 ;ttttttttt»ERROR 204*«»******* 

;-UNEXPECTED TRAP TO LOCATION 4 



pjk,h. mac/ 

VKAJB.Pr 



1 30(1046) 22-JAN-82 
22-JAN-82 08:49 



4545 
4$46 
4547 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4333 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

439S 

4396 

4397 

4398 

4399 

4400 



014720 000000 



CI 4722 011637 
014726 104210 



014730 000000 



014732 
014736 
014742 
014746 
014752 
014756 



014760 
014764 
014770 
014774 
015000 
015004 
015010 
015014 
015022 



015024 
015030 
015034 
015036 
015040 
015042 



015044 
015050 
015052 
015056 
15060 
15066 



8 



012567 
012567 
012567 
012567 
012567 
000205 



016700 
016701 
016702 
016703 
016704 
016705 
010637 
062737 
000207 



012700 
012701 
005020 
005301 
001375 
000207 



012537 
106700 
032700 
001 403 
052737 
000205 



000706 



163706 
163704 
163702 
163700 
163676 



163660 
163656 
163654 
163652 
163650 
163646 
000702 
000002 



017044 
000020 



000700 
000020 
000020 
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END OF PASS ROUTINE 



HALT 



D 7 



SEQ 0081 



;"OLDPC" CONTAINS THE PC*2 OP THE TRAP OCCURRENCE 
.PROGRAM MUST B£ RESTARTED AT THIS POINT 



;ROUTINE TO REPORT UNEXPECTED TRAPS TO LOCATION 10 



ILLTRP: 



NOV 

ERROR 



HALT 



(SP), a#OLDPC 
210 



GET PC*2 WHERE UNEXPECTED ILLEGAL INSTRUCTION TRAP OCCU 
**ft*ft*****ERROR 210********** 
UNEXPECTED TRAP TO LOCATION 10 
'10LDPC" CONTAINS THE PC^2 OF THE TRAP OCCURRENCE 
PROGRAM MUST BE RESTARTED AT THIS POINT 



.SUBROUTINE TO SET OPERAND VALUES 



NPREP: MOV (R5)*,S1LN 

MOV (R5)^,S1ADR 

MOV (R5>*,S2LN 

MOV (R5)«,S2ADR 

MOV (R5)«,DSrLN 

RTS R5 



.SUBROUTINE TO SET UP GENERAL REGISTERS 



.STORE INSTRUCTION TEST ARGUMENTS 



GENR: 



000702 



NOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
RTS 



SILN.RO 

SIADR^RI 

S2LN,R2 

S2ADR.R3 

DSTLN,R4 

DSTAD.R5 

SP,a#$AVR6 

f2,a«SAVR6 

PC 



.•TRANSFER INSTRUCTION TEST ARGUMENTS TO 
: THE GENERAL REGISTERS 



;COPY STACK POINTER BEFORE INSTRUCTION EXECUTION 
.'ADJUST SAVED SP BECAUSE OF JSR TO THIS ROUTINE 



.SUBROUTINE TO CLEAR BUFFER AREA 



CLBUF: 
1$: 



MOV 
MOV 
CLR 
DEC 
BNE 
RTS 



IBUF^RO 
#20,R1 

R1 
IS 
PC 



POINT RO TO BUFFER AREA 
STORE BUFFER LENGTH IN R1 
CLEAR BUFFER 
DECREMENT BUFFER LENGTH 
BR IF NOT FINISHED 
RETURN 



: SUBROUTINE TO RECORD EXPECTED PSU 



000700 



XPSW: MOV (R5)^,a#EXPPSU 

NFPS RO 

BIT fT8ir,R0 

BEO 1$ 

BIS fTBIT.aiEXPPSU 

1$: RTS R5 



.•STORE EXPECTED PSU VALUE IN 'tXPPSW 
.GET PRESENT PSV 
;1S T-81T SET? 
*BR IF NOT 

•OTHERWISE SET T-8IT IN EXPECTED PSU VALUE 
.•RETURN 
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E 7 



Seo 008£ 



4401 

440? 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 



015070 005037 000710 

015074 105777 163564 

015100 1004Q4 

015102 005237 000710 

015106 001372 

015110 104300 

015112 000207 



TDONE: 
IS: 



.•SUBROUTINE TO TEST FOR TRANSMIT DONE FLAG 



CLR MTENP 

TSTB aTCSR 

BRI RETN 

INC ifTENP 

BNE IS 

ERROR 300 



RETN: RTS PC 



.CLEAR TIMER 
;IS SLU READY? 
;BR IF READY 

:OTHERUISE INCREMENT TIMER 
;8R IF NOT TIMED OUT 
.••••••••••••*«**ERROft 300****« 

.NEVER GOT TRANSMIT DONE FLAG 
.•RETURN 



015114 
015114 
015120 
015122 
015126 
015130 
015136 
015140 
015146 



021667 163554 
001003 

032704 177400 
001004 

013777 000554 
000002 

042777 000100 
000002 



163530 
163516 



015150 
015150 
015156 



032777 04000C 
001065 



015160 000416 

015162 013746 
012737 
005737 
012637 
000434 



015166 
015174 
015200 
015204 
015206 
015210 
015214 
015216 
015216 



\22 
012777 



000004 
015206 
177060 
000004 



000004 
000400 



163362 



000004 



.SUBROUTINE TO HANDLE TTY INTERRUPTS IN INSTRUCTION 
;INTERRUPTABILITr TESTS 



INTR: 



CMP 
BNE 

CKR4: BIT 
BNE 

SEND: MOV 
RTI 

CLRINT: BIC 
RTI 



(SP).PCI 
SEND 

#1 77400. R4 
CLRINT 

afSNULL.aTBUF 
#100. aTCSR 



:UAS PC AT INSTRUCTION UNDER TEST? 
*6R IF NO 

•IF 'yes, check upper byte of R4 

;IF ZERO, INSTRUCTION WAS NOT INTERRUPTED-TRY AGAIN 

.•SEND ANOTHER CHARACTER 

•RETURN 

•IF NON-ZERO, CLEAR INTERRUPT ENABLE 
.CONTINUE INSTRUCTION 



.S8TTL SCOPE HANDLER ROUTINE 



;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT UILL INCREMENT 

:*AND LOAD THE TEST NUMBER(STSTm> INTO THE DISPUY RE6.(DISPLAV<7:0» 

:*AND LOAD THE ERROR FLAG (SERFLG^ INTO DISPLAV<15:08> 
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*SUl4s1 LOOP ON TEST 

;*SU09-1 LOOP ON ERROR 

;*SW08=1 LOOP ON TEST IN SyR<5:0> 
.•♦CALL 

SCOPE 



;;SCOPE»IOT 



1633U 



SSCOPE: 
IS: BIT 
BNE 

:»»»0»SJM1 OF 
SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 

5S: CMP 
MOV 
BR 

6%::M»»»nW OF 
BIT 



#8IT14,asUR 
SOVER 

CODE FOR THE XOR 
6S 

afERRVEC.-(SP) 

(SP)+.a#ERRVEC 
SSVLAO 
(SP)*,(SP)* 
(SP)>. afERRVEC 
7S 

CODE FOR THE XOR 

«8no8,asuR 



;;LOOP ON PRESENT TEST? 
;;YES IF S«Us1 

:;IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A *1«0P" (N0P:240} 
..SAVE THE CONTENTS OF THE ERROR VECTOR 
:;SET FOR TIMEOUT 
:;TIME OUT ON XOR? 
.-.RESTORE THE ERROR VECTOR 
.•;60 TO THE NEXT TEST 
.-.•CLEAR THE STACK AFTER A TIME OUT 
..•RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 
tESTER«###f 
;;LOOP ON SPEC. TEST? 



.nAlH. HACY11 50(1046) 22-JAN-82 
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SCOPE HANDLER ROUTINE 



F 7 



SEO 0083 



4457 

44S8 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

44% 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 



015224 
015226 
015232 
015236 
015242 
015244 
015250 
015252 
015260 
015262 
015270 
015272 
015276 
015302 
015310 
015314 
015320 
015324 
015332 
015340 
015344 



015346 
015354 
015362 
015364 
015366 
015370 
015372 
015374 
015376 
015402 
015406 
015414 
015416 



015420 
015426 
015432 
015436 
015442 
015444 
015450 
015454 
015456 
015460 
015462 
015464 
015466 
015470 



001407 
017746 
042716 
122667 
001433 
105767 
001412 
032777 
001404 
016767 
000420 
105067 
105267 
116767 
011667 
011667 
005067 
112767 
016777 
016716 
000002 



163306 
000300 
163240 

163233 

001000 

163222 

163205 
163200 
163174 
163172 
163170 
163234 
000001 
163144 
163142 



163260 
163216 

163262 



163163 
163202 



BEQ 

NOV 

BIC 

C«PB 

BEQ 

2$: TSTB 
BEQ 
BIT 
BEQ 

7$: MOV 
BR 

4$: CLRB 
$SVLAD: INCB 
NOVB 
MOV 
NOV 
CLR 
NOVB 
SOVER: NOV 
NOV 
RTI 



2$ 

asyR,-(SP) 

#$SyRNK,(SP) 

(SP)«,$TSTNN 

$0VER 

$ERFL6 

$SVLAD 

«8IT09.asyR 

4$ 

SLPERR.$LPAOR 
$0VER 
SERFLG 
STSTNN 

$TSTNN,STESTN 

<SP),$LPAOR 

(SP), ILPERR 

SESCAPE 

«1 .$ERNAX 

STSTNN, aOI SPLAY 

SLPAOR,(SP> 



::BR IF NO 

;;SET DESIRED TEST NUN. FRON SyR 

STRIP AWAY UNDESIRED BITS 
;;0N THE RIGHT TEST? 
;;BR IF YES 

;:HAS AN ERROR OCCURRED? 
;;BR IF NO 
r:L00P ON ERROR? 
' 'BR IF NO 

■•SET LOOP ADDRESS TO LAST SCOPE 

;;ZER0 THE ERROR FLAG 

;: COUNT TEST NUMBERS 

;;SET TEST NUMBER IN APT NAILBOX 

;;SAVE SCOPE LOOP ADDRESS 

;:SAVE ERROR LOOP ADDRESS 

; .-CLEAR THE ESCAPE FRON ERROR ADDRESS 

;:ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 

; .-DISPLAY TEST NUNBER 

: .-FUDGE RETURN ADDRESS 

.-.-FIXES PS 



.SBTTL POWER DOWN AND UP ROUTINES 



012737 015530 000024 

012737 000340 000026 

010046 

010146 

010246 

010346 

010446 

010546 

017746 163136 
010667 000126 
012737 015420 000024 
OOOOQO 
000776 



012737 015530 000024 
016706 000102 
005067 000076 
005267 000072 
001375 

005067 163032 
012677 163064 
012605 
012604 
012603 
012602 
012601 



:POWER DOWN ROt'TINE 
iPWRDN: NOV «$ILLUP.afPWRVEC 



NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

HALT 

BR 



«340.a#PWRVEC«2 
RO.-(SP) 
RI.-(SP) 
R2.-(SP) 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
aSWR.-(SP) 
SP,$SAVR6 
#SPWRUP,afPWRVEC 

.-2 



;;SET 
;PRIO 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.-PUSH 
.PUSH 
;SAVE 
.-;SET 



FOR FAST UP 

:7 

RO ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
R5 ON STACK 
aSUR ON STACK 
SP 

UP VECTOR 



R1 
R4 



;;HANG UP 



:POWER 
SPWRUP 



1S: 



UP ROUTINE 



012600 
012737 



015346 000024 



NOV 
NOV 
CLR 
INC 
BNE 
CLR 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 



f$ILLUP,afPWRVEC ;;SET FOR FAST DOWN 



SSAVR6.SP 
$SAVR6 
SSAVR6 
IS 

STSTNN 
(SP)«.aSWR 
(SP)+. R5 
(SP)«.R4 
(SP)*, R3 
(SP)*.R2 
(SP)*.R1 
<SP)+. RO 



;;6ET SP 
;;WAIT LOOP FOR THE TTV 
.-.-WAIT FOR THE INC 
;;0F WORD 



.-.POP STACK 
.-.-POP STACK 



.-;POP 
;;POP 
.-.POP 
;;POP 
;;pgP 



STACK 
STACK 
STACK 
STACK 
STACK 



INTO asuR 
INTO RS 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 



#SPWR6N.a#PWRVEC'!-.-SET UP THE POWER DOWN VECTOR 
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.VKAJB.pn 22-JAN-82 08:A9 POWER DOWN AND UP ROUTINES 



G 7 



SEO 0084 



4513 

45U 

A515 

A516 

A517 

<.518 

A519 

<.520 

A521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4b55 

4556 

4557 

4558 

4559 

4560 

4561 

^.562 

4563 

4564 

4565 

4366 

<.567 

4568 



015476 
015504 
015506 
015510 
015512 
015514 
015522 
015526 
015530 
015532 
015534 
015536 
015544 



015546 
015546 
015552 
015554 
015562 
015566 
015572 
015600 
015606 
015614 
015616 
015622 

015626 
015630 
015634 
015634 
015642 
015644 
015652 
015656 
015657 
015660 
015662 
015666 
015670 
015672 
015700 



012737 
104401 
015536 
012716 
014652 
042766 
005067 
000002 
000000 
000776 
000000 
005015 
000122 



105267 
001775 
016777 
005267 
011667 
162767 
117767 
032777 
001007 
104401 
016746 

104402 
104401 

122767 
001007 
116767 
004767 
000 
000 
000777 
005777 
100001 
000000 
032777 
001402 



000340 000026 



000020 
^77130 



000002 



047520 042527 



162731 

162722 162760 

162724 

162724 

000002 162716 
162712 162706 
020000 162724 

000563 
162670 



000563 

000001 162744 

162644 000004 
000656 

162652 



SPWRMG: 
SPURAO: 

SILLUP: 

$SAVR6: 
$P0WER: 



«0V 

TYPE 

.WORD 

HOV 

.WORD 

BIC 

CLR 

RTI 

HALT 

BR 

0 

.ASCIZ 
.EVEN 



#340.a#PWRVEC*2 ;;PRI0:7 

.•REPORT THE 



SPOWER 
(PC)*.(SP) 
SLOOP 
#20.2(SP) 
STBIT 



.-2 

<15><12>"P0WER' 



POWER FAILURE 
; .POWER PAIL MESSAGE POINTER 
.-.RESTART AT JLOOP 
.'.RESTART ADDRESS 
;; CLEAR 'T' BIT 
;; CLEAR THE "7" BIT FLAG 

;;THE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 



.S6TTL ERROR HANDLER ROUTINE 

•*•»*••*»••»*••»»»***• ttttttttt ••»•••••••»»••••••»•••••*••••••** 

*TH1S ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND TYPE OUT THE PC OF THE ERROR INSTRUCTION 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SWl5s1 HALT ON ERROR 

•SWT 3=1 INHIBIT ERROR TYPEOUTS 

•SW09=1 LOOP ON ERROR 

*CALL 

* ERROR N 



:;ERROR=EMT AND N^ERROR ITEM NUMBER 



SERROR: 
71: 



20$: 



21S: 

22$: 
2$: 



INCB 

BEQ 

MOV 

INC 

MOV 

SUB 

MOVB 

BIT 

6NE 

TYPE 

MOV 

TYPOC 
TYPE 

CMPB 



001000 162640 3$: 



MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

BIT 

BEO 



$ERFL6 
7$ 

$TSTNM.aDISPLAY 

$ERTTL 

(SP) «$ERRPC 

«2«$ERRPC 

a$iRRPC»$ITENB 

«JIT13,aSWR 

.$CRLF 

iCRRPC,-(SP) 



•SCRLF 

«APTENV.SENV 

$ITEnB«2U 
PC.$ATY4 



22$ 

«8IT09.aSWR 
4$ 



:;SET THE ERROR FLAG 

; .-DON'T LET THE FLAG 60 TO ZERO 

; .-DISPLAY TEST NUMBER AND ERROR FLAG 

;:INC THE ERROR COUNT 

;;6ET ADDRESS OF ERROR INSTRUCTION 

:; STRIP AND SAVE THE ERROR ITEM CODE 
;;«IP TYPEOUT IF SET 
;;SKIP TYPEOUTS 

:;SAVE $ERRPC FOR TYPEOUT 
:; ERROR ADDRESS 

;:60 TYPE-^CTAL ASCII (ALL DIGITS) 

;:RUWiIN6 IN APT MODE 
:;NO^SKIP APT ERROR REPORT 
:;SEf ITEM NUMBER AS ERROR NUMBER 
.-.•REPORT FATAL ERROR TO APT 



;;APT ERROR LOOP 

;;HALT ON ERROR 

::SK1P IF CONTINUE 

.-.-HALT ON ERROR! 

:;LOOP ON ERROR SWITCH SET? 

:;BR IF NO 



CVHAJB 

4S69 

4570 

4S71 

457 

457 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 



HACY11 

,P11 2 

015702 
015706 
015712 
015714 
015720 
015720 
015726 
015730 
015732 
015732 



5C(1046) 22-J. 

2-JAN-82 08:49 

016716 162602 

005767 162646 
001402 

016716 162640 

022737 014604 

001001 

000000 

000002 



2-JAN-82 08 
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ERROR HANDLER ROUTINE 



H 7 



015734 
015740 
015742 
015744 
015746 
015750 
015754 
015762 
015764 
015772 
015774 
016000 
016004 
016006 
016014 
016016 
016020 
016022 
016024 
016026 
016032 
016034 
016040 
016042 
016046 
016050 
016052 
016054 



000042 



4S: 



5$: 



6S: 



NOV 
TST 
BEQ 
NOV 

CMP 
BNE 
HALT 



$LPERR,(SP) 

SESCAPE 

5* 

SESCAPE, (SP) 

»$ENDAD,a«42 
6$ 



RTI 

.SBTTL TYPE ROUTINE 



FUDGE RETURN FOR LOOPING 
:; CHECK FOR AN ESCAPE ADDRESS 
* 'BR IF NONE 

••FUDGE RETURN ADDRESS FOR ESCAPE 

;;ACT-11 AUTO-ACCEPT? 
: .-BRANCH IF NO 
;;VES 

;; RETURN 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE tflTH A 0 BYTE. 
*THE ROUTINE VILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

*N0TE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL: 

•1) USING A TRAP INSTRUCTION 
• TYPE .MESADR 



•OR 
* 



;:MESADR IS FIRST ADDRESS OF AN ASCI2 STRING 



TYPE 
MESADR 



105767 


162617 




fTYPE: 


TST8 


STPFLG 


100002 








BPL 


IS 


000000 








HALT 


3S 


000430 








BR 


010046 






IS: 


MOV 


RO.-(SP) 


017600 


000002 






MOV 


a2(SP).R0 


122767 


000001 


162624 




CMPB 


fAPTENV.SENV 


001011 








BNE 


62S 


132767 


000100 


162615 




BITS 


fAPTSPOOL.SENVM 


001405 








BEO 


62S 


010067 


000004 






MOV 


R0.61S 


004767 


000520 






JSR 


PC,SATY3 


000000 






61S: 


.WORD 




132767 


000040 


162573 


62S: 


BITB 


#APTCSUP.SENVM 


001003 








BNE 


60S 


112046 






2S: 


MOVB 


(RO)+.-(SP) 


001005 








BNE 


4S 


005726 








TST 


(SP)+ 


012600 






60S: 


MOV 


(SP) ♦^RO 


062716 


000002 




3S: 


ADD 


#2.(SP) 


000002 








RTI 




122716 


000011 




4S: 


CMPB 


#HT,<SP) 


001430 








BEO 


8S 


122716 


000200 






CMPB 


#CRLF,(SP) 


001006 








BNE 


5S 


005726 








TST 


(SP)* 


104401 








TYPE 




000563 








SCRLF 





;;IS THERE A TERMINAL? 
;;8R IF YES 

.-.-HALT HERE IF NO TERMINAL 
;; LEAVE 
• * SAVE RO 

••GET ADDRESS OF ASCIZ STRING 

; .-RUNNING IN APT MODE 

:;NO,GO CHECK FOR APT CONSOLE 

;; SPOOL MESSAGE TO APT 

::NO.GO CHECK FOR CONSOLE 

:. SETUP MESSAGE ADDRESS l-OR APT 

.-.SPOOL MESSAGE TO APT 

; .MESSAGE ADDRESS 

;;APT CONSOLE SUPPRESSED 

;; YES. SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 

;;8R IF IT ISN'T THE TERMINATOR 

;;IF TERMINATOR POP IT OFF THE STACK 

; .-RESTORE RO 

; .-ADJUST RETURN PC 

;; RE TURN 

;;8RANCH IF <HT> 

;. -BRANCH IF NOT <CRLF> 

;;POP <CR><LF> EQUIV 
.-.-TYPE A CR AND LF 
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TYPE ROUTINE 



I 1 



4625 


016056 


105067 


000202 


4626 


016062 


000755 




4627 


016064 


004767 


000056 


4628 


016070 


126726 


162462 


4629 


016074 


001350 




4630 


016076 


016746 


162452 


4631 








463: 
4633 


016102 


105366 


000001 


016106 


002770 




4634 


016110 


004767 


000032 


4635 


016114 


105367 


000144 


4636 


016120 


000770 




4637 








4638 








4639 








4640 


016122 


112716 


000040 


4641 


016126 


004767 


000014 


4642 


016132 


132767 


000007 


4643 


016140 


001372 




4644 


016142 


005726 




4645 


016144 


000724 




4646 


016146 






4647 


016146 


105777 


162372 


4648 


016152 


100022 


162366 


4649 


016154 


017746 


4650 


016160 


042716 


177600 


4651 


016164 


122716 


000023 


4652 


016170 


001012 




4653 


016172 






4654 


016172 


105777 


162346 


4655 


016176 


100375 




4656 


016200 


117716 


162342 


4657 


016204 


042716 


177600 


4658 


016210 


122716 


000021 


4659 


016214 


001366 




4660 


016216 






4661 


016216 


005726 




4662 


016220 






4663 


016220 


105777 


162324 


4664 


016224 


100375 




4665 


016226 


116677 


000002 


46/^ 


016234 


122766 


000015 


4667 


016242 


001003 




4668 


016244 


105067 


000014 


4669 


016250 


000406 




4670 


016252 


122766 


000012 


4671 


016260 


001402 




4672 


016262 


105227 




4673 


016264 


000000 




4674 


016266 


C00207 




4675 








4676 








4677 








4678 








4679 








4680 









5S: 
6S: 



7$: 



CLR8 

BR 

JSR 

CHPe 

BNE 

ncv 

DECS 

BLT 

JSR 

DECB 

BR 



$CHARCNT 
2$ 

PC-STYPEC 

$FILLC,(SP)* 

2$ 

SNULL,-(SP) 

KSP) 
6$ 

PC,$TYPEC 

SCHARCNT 

7$ 



.HORIZONTAL TAB PROCESSOR 



8$: 
9$: 



STYPECi 



101$: 



102$: 
10$: 



novB 

JSR 

BITS 

BNE 

TST 

BR 

TSTB 

BPL 

NOV 

BIC 

CNPe 

BNE 

TSTB 

BPL 

NOVB 

BIC 

CNP8 

BNE 

TST 



TSTB 
BPL 
NOVB 
CNP8 
BNE 
CLR6 
BR 

1$: CNP8 
BEO 
INCB 
SCHARCNT .-.WORD 
$TYPEX: RTS 



#• .(SP) 
PCSTYPEC 
#7,$CHARCNT 
91 

(SP)* 
2$ 

a$TKS 
10$ 

a$TK8.-(SP) 
#177600, (SP) 
m0FF,(SP) 
102$ 

8STKS 
101$ 

a$TK8,(SP) 
#177600. (SP) 
#$X0N,(SP) 
lOlS 

(SP)* 

a$TPS 

10$ 

2(SP),a$TPB 
#CR,2<SP) 

1$ 

$CHARCNT 
$TyPEX 

$TypEX 

(PC)* 

0 

PC 



.-CLEAR CHARACTER COUNT 
:;6ET NEXT CHARACTER 

;60 TYPE THIS CHARACTER 
;;IS IT TINE FOR FILLER CHARS.? 
;;IF NO 60 GET NEXT CHAR. 
;:GET » OF FILLER CHARS. NEEDED 
:;AND THE NULL CHAR. 
;:DOES A NULL NEED TO BE TYPED? 
:;BR IF NO— GO POP THE NULL OFF OF STACK 
;;G0 TYPE A NULL 
;;D0 NOT COUNT AS A COUNT 
;;LOOP 



; .-REPLACE TAB WITH SPACE 

;;TYPE A SPACE 

;; BRANCH IF NOT AT 

* 'TAB STOP 

••POP SPACE OFF STACX 
;;6ET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 
;;BR IF NOT 
;;GET CHAR 

STRIP EXTRANEOUS BITS 
;;yAS CHAR XOFF 
:;8R IF NOT 



::WAIT FOR CHAR 

;;GET CHAR 
; .-STRIP IT 
;:yAS IT XON? 
;;8R IF NOT 

;;FIX STACK 

;;UAIT UNTIL PRINTER IS READY 

;:LOAO CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
: .-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

::IS CHARACTER A LINE FEED? 
; .-BRANCH IF YES 
;; COUNT THE CHARACTER 
:; CHARACTER COUNT STORAGE 



NJDOOl 
NJDOOl 
NJDOOl 
NJDOOl 
NJDOOl 
NJD001 
NJD001 
NJDOOl 
NJDOOl 
NJDOOl 
NJDOOl 
NJDOOl 
NJDOOl 
NJD001 
NJDOOl 
NJDOOl 

;NJD001 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

••THIS ROUTINE IS USED TO CHANGE A 16-4IT BINARY NUMBER TO A 6-DI6IT 
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A681 
<.682 
A683 

A68S 

<.687 

4688 

<.689 

4690 

A691 

4692 

4693 

4694 

4695 

46% 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 
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BINARY TO OCTAL (ASCII) AND TYPE 

;*0CTAL (ASCII) NUMBER AND TYPE IT. , 
••STYPOS — ENTER HERE TO SETUP SUPPRESS ZcROS AND NUMBER Of DIGITS TO TYPE 

— ; .-NUMBER TO BE TYPED 

;;CALL FOR TYPEOUT 

:;N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;;M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



SEP 0087 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM.-(SP) 

N 
M 



;* 
;* 

;* 
;* 

;i$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

;*$TYPOS OR $TYPOC 
;*CALL: 

;* MOV NUM,-(SP) 

TYPON 

|*STYPOC — ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL: 

;* MOV NUM,-(SP> 

r* TYPOC 



: .-NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



016270 


01 7646 


000000 


AA A ^ 4 4 

000211 


016274 


116667 


000001 


016302 


112667 


AAA 1 

000207 




016306 


062716 


000002 




016312 


000406 




000171 


016314 


112767 


A AAAA4 

000001 


016322 


112767 


A A AAA^ 

000006 


AAA i Z C 

000163 


016330 


112767 


A AAAAC 

000005 


AAA 4 C / 

000154 


016336 


010346 






016340 


Ul 0^*0 






016342 


010546 


000145 




016344 


116704 




016350 


005404 






016352 


062704 


000006 




016356 


110467 


000132 




016362 


116704 


000125 




016366 


016605 


000012 




016372 


005003 






016374 


006105 






016376 


000404 






016400 


006105 






016402 


006105 






016404 


006105 






016406 


010503 






016410 


006103 


000076 




016412 


105367 




016416 


100016 


177770 




016420 


042703 




016424 


001002 






5^6426 


005704 






Q16430 


001403 






016432 


005204 






016434 


052703 


000060 




016440 


052703 


000040 




016444 


110367 


000040 





STYPOS: MOV 
MOVB 
MOVB 
ADD 
BR 

$TYPOC: MOVB 
MOVB 

$TYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NE6 
ADD 
MOVB 
MOVB 
MOV 
CLR 

1$: ROL 
BR 

2$: ROL 
ROL 
ROL 
MOV 

3$: ROL 
DECS 
BPL 
BIC 
BNc 
TST 
BEO 

4$: INf 
BIS 

5$: BIS 
MOVB 



a(SP).-(SP) 

1(SP).$0FILL 

(SP)>,t0MO0E>1 

#2.(SP> 

STYPON 

«1,$0FILL 

«6,$0n0DE^1 

#5.$0CNT 

R3.-(SP> 

R4,-(SP> 

R5,-(SP) 

S0nODE>1 «R4 

R4 

«6.R4 
R4.$0M0DE 
$0FILL«R4 
l|<SP).R5 

R5 
3$ 
R5 
R5 

, 

R5,R3 
R3 

$0M0DE 

*177770,R3 

4$ 

R4 

5$ 

R4 

*'0,R3 
*• .R3 
R3j$ 



; .-NUMBER TO BE TYPED 
.-.-CALL FOR TYPEOUT 

;; PICKUP THE MODE 
.-.-LOAD ZERO FILL SWITCH 
.-.-NUMBER OF DIGITS TO TYPE 
.-.-ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 
.'.-SET FOR SIX(6> DIGITS 
.-.-SET THE ITERATION COUNT 
.-.-SAVE R3 
.-.-SAVE R4 
* 'SAVE R5 

■•GET THE NlfBER OF DIGITS TO TYPE 

.-.'SUBTRACT IT FOR MAX. ALLOWED 
.-.-SAVE IT FOR USE 
.-.-GET THE ZERO FILL SWITCH 
; .-PICKUP THE INPUT NUMBER 
:; CLEAR THE OUTPUT WORD 
.'.ROTATE MSB INTO 'X" 
:;60 DO MSB 
.-.-FORM THIS DIGIT 



;:GET LS8 OF THIS DIGIT 
r;TVPE THIS DIGIT? 
;;BR IF NO 
;;GET RID OF JUNK 
;;TEST FOR 0 

SUPPRESS THIS 0? 
;;8R IF YES 

DON'T SUPPRESS ANYMORE O'S 
;;MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 
;.'SAVE FOR TYPING 
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BINARY TO OCTAL 



(ASCII) AND TYPE 



4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 



016450 104401 016510 

016454 105567 000032 

016460 003347 

016462 002402 

016464 005204 

016466 000744 

016470 012605 

016472 012604 

016474 012603 

016476 016666 000002 

016504 012616 

016506 000002 

016510 000 

016511 000 

016512 000 

016513 000 

016514 000000 



000004 



016516 


112767 


AAAAAi 
000001 


OOOcjO 


016524 


iicfof 


AAAAAI 
000001 


OOOccO 


016^32 


AAA/ AT 

000403 




VvVCCv 


016534 




OUUOO 1 


A1 ^C/ ^ 

01654c 








Ai ^C/ ^ 

016542 


AI AA/ t. 

01 004o 






A1 ^C/ / 

016544 


AI AI 

0l0l4o 






Ai ^Cj ^ 

016546 


1 AC7A7 
105f Of 


000206 




A1 ^CCI 

016552 


AA1 A 
001450 




162024 


01 A^^4 


1 ??767 


000001 


016562 


001031 




162015 


016564 


132767 


000100 


016572 


001425 






016574 


017600 


000004 


000004 


016600 


062766 


000002 


016606 


005767 


161754 




016612 


001375 


161762 




016614 


010067 




016620 


105720 






016622 


001376 


161752 




016624 


166700 




016630 


006200 


161746 




016632 


010067 


161722 


016636 


012767 


000004 


016644 


000413 




000016 


016646 


017667 


000004 


016654 


062766 


000002 


000004 


016662 


016746 


161110 




016666 


004767 


177042 




016672 


000000 






016674 




000062 




016674 


105767 




016700 


001416 


161700 




016702 


005767 




016706 


001413 







7$: 


TYPE 
DECe 


,8$ 

»OCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


2$ 


6$: 


MOV 


(SP)*,R5 


MOV 


(SP)+, R4 




MOV 


(SP)*,R3 




MOV 


2(SP) ,4(SP) 




MOV 


(SP)*, (SP) 




RTJ 




8»: 


• BYTc 


A 
0 




.BYTE 


0 


$OCNT: 


.BYTE 


c 


SOFJLL: 


.BYTE 


0 


SOnODE: 


.WORD 


0 



;;60 TYPE THIS DIGIT 
;; COUNT BY 1 
;;BR IF MORE TO DO 
;;BR IF DONE 

;; INSURE LAST DIGIT ISN'T A BLANK 
;:60 DO THE LAST DIGIT 
; .-RESTORE R5 
; .-RESTORE R4 
* 'RESTORE R3 

;:SET THE STACK FOR RETURNING 
* -RETURN 

•[-STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 

;; OCTAL DIGIT COUNTER 

::ZERO FILL SWITCH 

: .-NUMBER OF DIGITS TO TYPE 



.SBTTL APT COMMUNICATIONS ROUTINE 



iATYl 
$ATY3 

$ATY4 
$ATYC 



: MOVB fKfFFLG ;;T0 REPORT FATAL ERROR 

MOVB iri.SMFLG ;;T0 TYPE A MESSAGE 

BR SATYC 

MOVB fl.SFFLG :;T0 ONLY REPORT FATAL ERROR 



IS: 



2S: 



31: 



4$: 
5$: 
10$: 



MOV 

MOV 

TSTB 

BEQ 

CMP8 

6NE 

BITB 

BEQ 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SUB 

ASR 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 

TSTB 
BEQ 
TST 
BEQ 



RO.-(SP) 
R1, -(SP) 
SMFLG 
5$ 

ITAPTEr.V.SENV 
3$ 

ITAPTSPOOL.SENVM 
3$ 

a4 (SP), RO 
l'2,4(SP) 
SMSGTYPE 
1$ 

RO.SnSGAO 
(R0) + 

SnSGAD«RO 
RO 

RO^SMSGLGT 

#4«SMSGTYPE 

5S 

a4(SP)^4l 



#2.4 (SP) 
17^776,- 
PCSTYPE 
0 

$FFLG 
12$ 
$ENV 
12$ 



(SP) 



.-.-PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;; SHOULD TYPE A MESSAGE? 

**IF NOT* BR 

••OPERATING UNDER APT? 

-'IF NOT^ BR 

••SHOULD* SPOOL MESSAGES? 

;;IF NOT: BR 

::GET MESSAGE ADDR. 

;:BUHP RETURN ADDR. 
:;SEE IF DONE U/ LAST )(MISSION? 
;;IF NOT: UAIT 
;;PUT ADDR IN MAILBOX 
;:FIND END OF MESSAGE 

:;SUB START OF MESSAGE 
::GET MESSAGE LN6TH IN WORDS 
;:PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;:PUT MSG ADDR IN JSR LINKAGE 
::BU>V> RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



:; SHOULD REPORT FATAL ERROR? 
;;IF NOT: BR 
.-.•RUNNING UNDER APT? 
;:IF NOT: BR 
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Apr CO««UNICAriONS ROUTINE 



L 7 



SEQ 



4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 



016710 
016714 
016716 
016724 
016732 
016736 
016742 
016746 
016752 
016754 
016756 
016760 
016761 
016762 



016764 
016766 
016772 
016774 
016776 
017000 
017004 



017006 
017010 
017016 



017020 
017022 
017024 
017026 
017030 



005767 
001375 
017667 
062766 
005267 
105067 
105067 
105067 
012601 
012600 
000207 
000 
000 
000 
016764 
000200 
000001 
000100 
000040 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



011646 
016666 
000002 



017006 
015734 
016314 
016270 
016330 



161652 

000004 
000002 
161630 
000020 
000013 
000006 



161644 
000004 



000002 



017020 



000004 000002 



11$; 



12$: 



WfLQ: 
$LFL6: 
$FFLG: 

.EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 



.SBTTL TRAP DECODER 





$«S6TYPE 


BNE 


11$ 


nov - 


a4(SP) ,$FArAL 


ADD 


#2,4(SP) 


INC 


$«S6TYPE 


CLRB 


$FFLG 


CLRB 


$LFLG 


CLRB 


$nFLG 


MOV 


(SP)*.R1 


HOV 


(SP^ ♦,RU 


RTS 


PC 


.BYTE 


0 


.BYTE 


0 


.BYTE 


0 



; .-FINISHED LAST MESSAGE? 
;;IF NOT: WAIT 
;;GET ERROR # 

;;BU«P RETURN ADDR. 
;;TELL APT TO TAKE ERROR 
;; CLEAR FATAL FLAG 
;: CLEAR LOG FLAG 
;; CLEAR MESSAGE FLAG 
;;POP STACK INTO Rl 
;;POP STACK INTO RO 
: .-RETURN 
;;nESSG. FLAG 
;;L06 FLAG 
;; FATAL FLAG 



*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
«G0 TO THAT ROUTINE. 



STRAP: nOV 


RO.-(SP) 


NOV 


2(SP},R0 


TST 


-(RO) 


NOVB 


(RO).RO 


ASL 


RO 


NOV 


$TRPAD(RO).RO 


RTS 


RO 



;:SAVE RO 

;;6ET TRAP ADDRESS 

: .-BACKUP BY 2 

;;GET RIGHT BYTE OF TRAP 

; .-POSITION FOR INDEXING 

.-.-INDEX TO TABLE 

;;G0 TO ROUTINE 



.-.-THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: NOV 
NOV 
RTI 



(SP),-(SP) 
4(Sp5.2(SP) 



.-.-MOVE THE PC DOWN 
;;NOVE THE PSW DOWN 
: .-RESTORE THE PSW 



.SBTTL TRAP TABLE 



.-*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE "TRAP" INSTRUCTION. 



iTRPAD: 



ROUTINE 

.WORD 

STYPE 

$TYPOC 

STYPOS 

STYPON 



$TRAP2 

.-;CALL=TYPE 

;;CALL=TYPOC 

;;CALL=TyPOS 

;;CALL=TyPON 



TRAP+1 (104401) TTY TYPEOUT ROUTINE 

TRAP^2(104402} TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAPO(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP^4 (104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 



.MAIN. MACY11 30(1046) 
CVKAJB.P11 22-JAN-82 



22-JAN-82 
08:49 



4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 



017032 
017040 



017044 



005015 
041112 
017044 

000020 
000001 



053103 
000 



08:50 PAGE 91 
TRAP TABLE 



n 7 



SEQ 0090 



040513 NAME: 



BUF: 



.ASCIZ <15>*'12>/CVICAJB/ 
.EVEN 



.BLKU 
.END 



20 
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N 7 
USER SYMBOLS 



SEQ 0091 



ABASE = 177560 
ACDU1 = 000000 
ACDU2 = 000000 
ACPUOP= 000000 
ADDN = 076050 



ADONPC 
AODUO = 
A00U1 = 
A0DU10= 
ADDW1 1 = 
A0DU12= 
A0DU13= 
AOOUU= 
ADDWI 5= 
A00W2 = 
A00U3 = 
AODWA = 
A00W5 = 
A00W6 = 
A00W7 : 
AD0W8 = 
A00U9 = 
ADEVCT- 
ADEV« = 
AENV - 
AENVM - 
AFATAL- 
ANADR1- 
ANADR2= 
AnA0R3= 
AMADR4= 
AHAHSIs 

AnAns2= 

AnAflS3=: 

AMAHSA- 

AnS6AD= 

AnSGLG= 

A«SGTY= 

A«TrP1= 

AHTYP2= 

AHTyP3s 

AHTYP4* 

ANS10 

ANS11 

ANSI 2 

ANSU 

ANSI 5 

ANS16 
ANS17 
ANS, 
ANS21 
ANS. 
ANS 
ANS24 
ANS6 



006106 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
)0 



488« 

605 
605 
605 
477# 
1814 
2169 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
605 
1446 
1533 
1618 
1770 

ill? 

>035 

1 

251 

127( 



605 



620 
778 
1903 
2180« 



611 



646 



874 
1991 



970 
2078 



1066 
2180 



1158 1226 1313 1402 1489 1574 1658 1726 
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TABLE — USER StMBOLS 



SEO 0092 



AMS7 

APASS = 

APRIOR= 

APTCSU= 

APTENVs 

APTSIZs 

APTSPO- 

ASURFGs 

ATESfM* 

AUNIT = 

AUSyR c 

AVECT1= 

AVECT2S 

BA0R6 



8CGIN 
BITO = 
81 TOO s 
BIT01 = 
BIT02 = 
BIT03 = 
B1T04 s 
8IT05 = 
BIT06 = 
9IT07 = 
BIT08 - 
BIT09 = 
8IT1 = 
B1T10 = 
B1T11 = 
BIT12 = 
BiT13 = 
BIT14 * 
B1T15 = 
BIT2 « 
BITS = 
BIT4 s 
81 T5 * 
81 T6 » 
BIT7 « 
BITS - 
8IT9 * 
BPTVCCs 
BUF 

CCOOES 



003420 
000000 
OOOOOO 
0000^0 
000001 
000200 
000100 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
000060 
OOOOOO 
000704 



001300 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
OOQOU 
017044 
000676 



CKR4 015122 



1357 
605 
605 
480# 
47&r 
477# 
479# 
605 
605 
605 
605 
489# 
605 
681 # 
2219* 
3273* 
739 
462# 
452f 
451# 
450f 
449# 
448# 
447# 
4464 
445# 
4444 
443# 
461# 
442ir 
441# 
4404 
439# 
438# 
437# 
460# 
459# 
458# 
457# 
456# 
455# 
454# 
453# 
469# 
670 
67&r 
1491* 
1817* 
2186 
2639* 
940* 
238 

Wu 

4222 
4419# 



1377# 
610 

4610 
4557 

734 
4605 

618 

609 

612 

619 

605 

645 
1195* 
2313* 
3347* 

754f 
2157 

462 

461 

460 

459 

458 

457 

450 

455 

454 

453 



4312 
4549 
4442 



4384 

1160* 

1492* 

1818 

2278* 

2640* 

2941 

3310* 

3605* 

3922 



4811# 
4603 
4808# 
4769 


4767 
481 0# 


4809# 






644 










1263* 

2400* 

3421* 

4323 

2443 


1350* 
2506* 
3494* 


1439* 
2602* 
3368* 


1526* 
2676* 
3641* 


1611* 
2751* 
3732* 


3668 


4193 







4456 
4464 



4855# 

1161* 

1493 

1905* 

2279* 

2641 

3013* 

3311* 

3606 

3993* 



4567 



1162 

1576* 

1906* 

2280 

2714* 

3014* 

3312 

3693* 

3994* 




1229* 

1578 

1993* 

2366* 

2716 

3089* 

3385* 

3697 

4066* 



1695* 1763* 1851* 1940* 2028* 2115- 
2827* 2904* 2976* 3050* 3126* 3199* 



1230 

1660* 

1994* 

2367 

2790* 

3090* 

3386 

3773* 

4067* 



1315* 

1661* 

1995 

2469* 

2791* 

3091 

3457* 

3774* 

4068 



1316* 

1662 

2080* 

2472* 

2/^92 

3162* 

3458* 

3775 

4139* 



13.7 

1728* 

2081* 

2473 

2867* 

3163* 

3459 

3847* 

4140* 



1404* 


1405* 


1406 


1729* 


1730 


1816* 


2082 


2182* 


2185* 


2565* 


2566* 


2567 


2868* 


2869 
3236* 


2939* 


llfu 


3237« 


3532* 


3533 


3848* 


3849 


3920* 


4141 


4218* 


4221* 
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C 8 
USER SYMBOLS 



CLBUF 015024 



CLRINT 
CPV>N : 

CHPNPC 

CR 

CRLF s 
CVTCON 
CVTNL = 
CVTPC 
DDISP ' 
DISPLA 
OlSPRE 
DSTAO 



015140 
076C52 

012656 
000015 
000200 
014260 
076053 
014356 
177570 
000542 
000174 
000656 



DSTLN 000654 



DSUR = 

EMTVEC= 

ENDMS6 

EN0T1 

EP«>T2 

EN0T21 

EN0T24 

EKATi 

ENDT'. 

EP«>T44 

ENDT53 

ERRVEC- 

EXPPSM 



FILL 
6ENR 



177570 
000030 
014664 
001552 
00203A 
006276 
007274 
002316 
002600 
013012 
014504 
000004 
300700 



000660 
014760 



HT - 000011 
ILLTRP 014722 
INTR 015114 
iOTVECs 000020 
LF = 000012 
N - 000010 



768 

1897 

4420 
477# 

3455 

3679 
377# 
378>r 

4192 
477# 

4204 
384# 
588# 
502# 
670# 

1534 

2123 

2897 

3881 
669# 

1753 

2322 

3187 

4168 
383# 
472# 

4294 
783 
879 

2237 

2524 
975 

1071 

3738 

4260 
465i» 
679f 

1493 

2641 

3606 
671 # 
775 

1900 

3007 

3987 
501 
375# 
511 

2170 
470# 
576M 
485# 
809# 
885# 
924 
995 



864 
1985 
4423# 
2563 
3529 
3691 # 
4666 
4620 
4194 
3771 
4216f 
588 
731* 
731 
811 
1605 
2213 
2969 
3954 
1185 
1772 
2390 
3261 
4249 
587 
703* 
4327# 
840 
936 
2256# 
2543# 
1032 
1128 
3751# 
4273# 
4447 
819 
1578 
2716 
3697 
806 
871 
1988 
3083 
4060 
4844 
4618 
4350# 
2456 
701* 
4670 
762# 
813 
889 
925# 
996# 



VGU 


1 ACA 


lis? 


2072 


2168 


2270 


2637 


2712 


2788 


3602 


3691 




4676 






4676 






/ i Q7JI 




3991 


3845 


3918 


4475* 


4544* 




907 


1003 


1099 


1619 


1689 


1757 


2227 


2307 


2321 


3043 


3119 


3192 


4027 


4100 


4173 


1253 


1272 


1340 


1841 


1860 


1930 


2409 


2496 


2515 


3335 


3409 


3482 


4365* 


4375 





704* 

850# 
946# 



1042# 
1138# 



4448* 
841 
1662 
2792 
3775 
902 
967 
2075 
3157 
4133 
4845 
4676 

3680 
702* 

4676 
780 
814ir 
890# 
932 

1000 



781# 
821 
894 
933# 
lOOliT 



788 
822# 
895f 
954# 
1005 



4450* 


4453* 




915 


937 


1011 


1730 


1818 


1907 


2869 


2941 


3015 


3849 


3922 


3995 


998 


1094 




1063 


1155 


Jilt 


2178 


2273 


3378 


3230 


3304 


4213 


4371* 




4846 


4847 




4205 


4416ir 





1307 
2454 



1396 
43844 



2865 


2937 


3011 


4064 


4137 


4216 


1189 


1257 


1271 


1771 


1845 


1859 


2394 


2408 


2500 


3266 


3340 


3414 


4254 


4376 




1359 


1429 


1448 


1949 


2018 


2037 


2590 


2664 


2739 


3556 


3629 


3720 



SEO 0093 

1483 1568 1652 1720 1808 
3087 3160 3234 3308 3382 



789# 

828 
899 
972 
1006# 



1344 


1358 


1433 


1934 


1948 


2022 


2514 


2595 


2669 


3487 


3561 


3634 


1516 


1535 


1601 


2105 


2124 


2209 


2815 


2892 


2964 


3802 


3876 


3949 



1033 


1107 


1129 


1995 


2082 


2186 


3091 


3164 


3238 


4068 


4141 


4222 


1310 


1399 


1486 


2464 


2559 


2633 


3452 


3526 


3599 



1447 
2036 
2744 
3725 

1620 
2228 
3038 
4022 



1520 
2109 
2820 
3807 

1685 
2303 
3114 
4095 



1162 


1230 


1317 


1406 


2280 


2367 


2473 


2567 


3312 


3386 


3459 


3533 


4392* 


4396* 






1571 


165: 


1723 


1811 


2709 


2784 


2861 


2933 


3688 


3768 


3841 


3914 



793 
829# 
90Q# 
973i 
1013 



794* 
836 
904 
980 
1014# 



798 
837# 
905f 
981 f 
1020 



799# 
858# 

909 
985 

io;:i« 



803 
876 
91 0# 
986# 
1028 



804# 
877# 
917 
990 
1029* 



808 
884 
918« 
991 # 
1050# 
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NPREP 



017032 
0U732 



1068 
llOTf 

1233? 
1264 
1338 
1415 
144U 
1515# 
158&r 
1623 
1687 
1747 
1820 
1848# 
1925ir 
1998# 
2029 
2103 
2195 
2221# 
2302# 
2377# 
2412 
2498 
2580 
2643 
2672# 
273&r 
2806# 
2872# 
2905 
2966 
3032 
3100 
3128# 
3190# 
3256ir 
3322# 
3370# 
3416 
3480 
3546 
3608 
3637# 
371 9# 
3789# 
3859# 
3925# 
3979# 
4029 
4097 
4164 
4239 
740 
762 



1069f 
1109 
1179 
1239 
1265f 
1339# 
1416# 
1451 
1518 
1591 
1624f 
1688# 
1748# 
1821# 
1852 
1928 
2004 
2030# 
2104# 
2196# 
2231 
2305 
2380 
2413# 
2499# 
2581/r 
2644# 
2677 
2741 
2809 
2878 
2906# 
2967# 
3033# 
3101# 
3149ir 
3194 
3259 
3325 
3388 
3417# 
3481 # 
3547# 
3609# 
3642 
3722 
3792 
3862 
3931 
3997 
4030# 
4098# 
4165f 
4240# 
4851# 
858 



1076 
1110# 

moM 

1275 

1342 

1419 

1452# 

15191 

1592# 

1646# 

1691 

1751 

1827 

1853# 

1929# 

2005# 

2040 

2107 

2199 

2252M 

2Z06M 

2381 # 

2439# 

2502 

2584 

2650 

2678# 

2742# 

281 0# 

2879# 

2925# 

2971 

3036 

3104 

3166 

3195# 

3260# 

3326# 

3389# 

3422 

3484 

3550 

3615 

3643# 

3723# 

3793# 

3863# 

3932# 

399&r 

4052# 

4102 

4170 

4245 



1077# 

1116 

1183 

1243 

1276# 

1343# 

1420# 

1477# 

1522 

1595 

1664 

1692# 

1752# 

1828# 

1863 

1932 

2008 

204 1# 

2108# 

2200# 

2264f 

2309 

2384 

2475 

2503# 

2585ir 

265 1# 

2701 # 

2746 

2813 

2882 

2943 

2972# 

3037# 

3105# 

3167# 

3200 

3263 

3329 

3395 

3423# 

3485# 

3551# 

361 6# 

3664# 

3727 

3798 



4004 

4070 

4103# 

4171# 

4246# 



1081 

1117* 

11844 

1244# 

1301# 

1346 

1423 

1495 

1523# 

1596# 

1665# 

1696 

1755 

1831 

1864/r 

1933# 

2009# 

2066# 

2111 

2203 

2282 

231 0# 

2385# 

2476# 

2507 

2588 

2654 

2718 

2747# 

281 4# 

2883# 

2944# 

2977 

3040 

3108 

3173 

3201# 

3264# 

3330# 

3396# 

3444# 

3489 

3554 

3619 

3699 

3728^ 

3799# 

3867# 

3936# 

40Q5# 

4071# 

4125# 

4175 

4251 



1082« 

1124 

1187 

1247 

1319 

1347# 

1424# 

1496« 

1527 

1599 

1671 

1697# 

^75(>» 

1832# 

1891# 

1936 

2012 

2084 

2112# 

2204iir 

2283# 

2314 

2388 

2482 

2508ir 

2589# 

2655# 

271 9# 

2752 

2817 

2886 

2950 

2978# 

3041f 

3109# 

3174# 

3222# 

m 

3399 

3461 

3490# 

3555# 

3620f 

370Q# 

3733 

3804 

3872 

3939 

4008 

4077 

4143 

4176ir 

4252# 



1086 

1125# 

118&r 

1248ir 

1320# 

1351 

1427 

1502 

1528ir 

1600# 

1672* 

1714« 

1759 

1835 

1909 

1937# 

201 3# 

2085# 

2116 

2207 

2289 

231 5# 

2389# 

2483# 

2518 

2592 

2658 

2725 

2753# 

281 &r 

2887# 

295 1# 

2999# 

3045 

3t12 

3177 

3240 

ms 

3400# 
3462# 
3495 
3558 

3706 

3734# 

3805# 

3873# 

3940# 

4009f 

40784 

4144# 

4189# 

4256 



1087# 

1146# 

1191 

1251 

1326 

1352* 

142&r 

1503# 

1538 

1603 

1675 

1732 

1760# 

1836# 

^9^o» 

1941 

2016 

2091 

2117# 

2208# 

2290# 

2325 

2392 

2486 

2519# 

2593# 

2659# 

2726# 

2776* 

2822 

2890 

2954 

3017 

3046# 

3113# 

3178# 

3241# 

3274 

3337 

3403 

3468 

3496# 

3559# 

mr. 

1760# 
»09 
»78 
3945 
4012 
4081 
4150 
4224 
4257# 



1091 

1164 

1192# 

125|f 

1327# 

1362 

1431 

1506 

1539* 

1604# 

1676# 

1733* 

1764 

1839 

1916 

1942# 

201 7# 

2092# 

2127 

2211 

2293 

2326* 

2393* 

2487# 

2551# 

2597 

2662 

2729 

2794 

2823# 

2891# 

2955# 

301 8# 

3051 

3116 

3181 

3247 

3275# 

3338# 

3404# 

3469# 

351 &V 

3563 

3627 

3710 

3777 

381 Of 

3879# 

3946f 

401 3# 

4082# 

41$1# 

4225# 



1092# 
1165« 
1196 
1255 
1330 
1363« 
1432# 
1507f 
1562« 
1607 
1679 
1739 
1765# 
1840# 
1917* 
1952 
2020 
2095 
2128f 
221 2# 
2294# 
2352# 
2396 
2490 
2569 
2598* 
2663# 
2730* 
2795* 
2828 
2894 
2958 
3024 
3052* 
3117# 
31 82# 
324&r 
3296« 
3342 
3407 
3472 
3535 
3564# 
3628# 
371 1# 
^77BM 
S833# 
»83 
3951 
4018 
4085 
4154 
4231 



1096 

1171 

1197f 

1256# 

1331# 

15900 

1435 

1510 

1580 

1608f 

1680# 

1740# 

1775 

1843 

1920 

1953# 

2021* 

2096# 

2153* 

2215 

2297 

2369 

2397# 

249U 

2570# 

2603 

2666 

2733 

2801 

2829# 

2895# 

2959* 

3025* 

3075# 

3121 

3185 

3251 

3314 

3343# 

3408f 

3473# 

3536# 

3569 

3631 

3714 

3784 

3851 

3884# 

3952ir 

4019# 

4086» 

4155* 

4232« 



1097* 

11 72# 

121 5f 

1259 

1334 

1408 

1436f 

1511* 

1581# 

1612 

1683 

1743 

1776* 

1844« 

1921# 

1979# 

2024 

2099 

2188 

2216# 

2298# 

2370« 

2401 

2494 

2576 

2604# 

2667f 

2734# 

2802# 

2853« 

2899 

2962 

3028 

3093 

3122* 

3186# 

3252# 

331 5# 

3348 

5411 

5476 

3542 

3570# 

5632* 

571 5# 

5785# 

5852# 

5906* 

5956 

4024 

4091 

4158 

4235 



SEQ 0094 

1101 
1175 
1232 

m 

1409# 

1440 

1514 

1587 

1613# 

1684# 

1744# 

1802f 

1847 

1924 

1997 

2025* 

?*00# 

«?189# 

2220 

2301 

2376 

2402« 

2495* 

2577# 

2625# 

2671 

2717 

2805 

2871 

2900# 

2965# 

3029# 

3094f 

5127 

5189 

5255 

3321 

5349# 

5412* 

5477* 

5545* 

3591* 

3656 

3718 

3788 

3858 

5924 

5957* 

4025* 

4092* 

4159* 

4236* 



954 1050 1146 1215 1301 1390 U77 1562 1646 1714 1802 
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OLDPC 
PCI 

PIRQ : 
PIRQVE- 
PRO a 
PR1 = 
PR2 = 
PR3 » 
PRA = 
PR5 = 
PR6 = 
PR7 = 
PS 

PSU : 

PWRVEC= 

REAOON 

RECMPN 

RECVTN 

RESUBN 

RESVECs 

RETN 

SAVR6 



U7777 
000706 

mi 

0002A0 
000000 
000040 
000100 

ooouo 

000200 
0O02A0 
000300 
000340 
177776 
}77776 
000024 
006100 
012650 
014350 
007074 
000010 
015112 
000702 



SEND 




015130 


STACK 




001100 


START 




000716 


STKLWT 




177774 


ST45 




013164 


ST46 




013340 


ST47 




013514 


ST50 




013670 


ST51 




014044 


ST52 




014220 


ST53 




014472 


SUBN 




076051 


SUBNPC 


007104 


syR 




000540 


SUREG 




000176 


SWO 




000001 


SWOO 




000001 


syoi 




000002 


syo2 




000004 


syo3 




000010 


sy04 




000020 


syo5 




000040 


SU06 




000100 


syo7 




000200 


syo8 




000400 


SW09 




001000 


swi 




000002 



1891 


1979 


2999 


3075 


3979 


4052 


487# 




682# 


4334* 


6770 


2169* 


382# 




476# 




399# 




400# 




401 # 




402# 




40m 




404# 




40S# 




406# 




379# 


360 


380# 




4714 


707* 


21784 


2184 


368&V 


3695 


42134 


4220 


24644 


2471 


4664 


717 


4405 


44104 


6804 


834 


1849 


1938 


2974 


3048 


4418 


44214 


3704 




522 


6904 


3814 




3762 


38144 


3835 


38884 


3908 


39614 


3981 


40344 


4054 


41074 


4127 


41804 


4200 


42614 


4774 


2276 


2455 


24674 


5874 


697 


4491 


4505* 


5034 


730 


4344 




4244 


434 


4234 


433 


4224 


432 


4214 


431 


4204 


430 


4194 


429 


4184 


428 


4174 


427 


4164 


426 


4154 


425 


4334 





2066 
3149 
4125 

4342* 
2455* 



930 
2026 
3124 



730* 
4549 



2162 
3222 
4198 

4350* 
3679* 



2264 
3296 
43614 



2352 
3370 



2448 
3444 



2551 
3518 



2625 
3591 



>701 
5673 



2776 
3760 



2853 
3833 



2925 
3906 



4204* 4417 



708* 4483* 4484* 4493* 4499* 4512* 4513* 



718* 725* 



1026 
2113 
3197 



1122 
2217 
3271 



1193 1261 1348 1437 
2311 2398 2504 2600 
3345 3419 3492 3566 



1524 
2674 
3639 



1609 
2749 
3730 



1693 
2825 
4377* 



1761 
2902 
4378* 



2363 2467 



736* 
4564 



2153 
4567 



2439 



3664 4189 4312 4442 4456 4458 4464 



1 
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SEQ 0096 



SU10 




002000 


SU11 




004000 


SU12 




010000 


syi3 




020000 


SUH 




040000 


SU15 




100000 


SU2 




000004 


SU3 


s 


000010 


SW4 




000020 


SU5 


- 


000040 


SU6 


— 


000100 


sy? 


— 


000200 


SU8 


- 


000400 


SU9 




001000 


S1ADR 




000646 


SlLN 




000644 


S1T1 




001550 


S1T10 




003630 


S1T11 




004044 


S1T12 




004256 


S1T13 




004442 


SITU 




004650 


S1T15 




005066 


S1T16 




005304 


S1T17 




005522 


S1T2 




002032 


S1T20 




005736 


S1T21 




006260 


S1T22 




006514 


S1T23 




006730 


S1T2A 




007256 


S1T25 




007460 


S1T26 




007640 


S1T27 




010020 


S1T3 




002314 


S1T30 




010202 


S1T31 




010364 


S1T32 




010542 


S1T33 




010722 


S1T34 




011104 


S1T35 




011262 


S1T36 




011442 


S1T37 




011622 


SITA 




002576 


S1T40 




012002 


S1T41 




0*2160 


S1T42 




012336 


S1TA3 




012514 


snu 




013002 


S1T5 




002772 


S1T6 




003176 


S1T7 




003412 


S2A0R 




000652 


S2LN 




000650 


S2T1 




001551 


S2T10 




003634 



414# 




413# 




41 2# 




41 1# 




4iar 

409# 




432# 
4ll# 
43(M 




429# 




42ar 




427« 




426# 




425« 




666M 


791 


665# 


786 


764 


844# 


1392 


145&r 


1479 


1545# 


1564 


i63ar 


1648 


1702# 


1716 


1782# 


1804 


1870# 


1893 


1959# 


1981 


2047# 


860 


940# 


2068 


2134# 


2164 


223&r 


2266 


2332# 


2354 


241 9# 


2450 


2525# 


2553 


2609# 


2627 


2683» 


2703 


275&r 


956 


1036# 


2778 


2834# 


2855 


291 1# 


2927 


2983# 


3001 


3057# 


3077 


3133# 


3151 


3206# 


3224 


3280# 


3298 


3354# 


1052 


1132# 


3372 


3428# 


3446 


3501# 


3520 


3575# 


3593 


3646# 


3675 


3739/? 


1148 


1202# 


1217 


1282# 


1303 


1369# 


668# 


801 


667# 


796 


766 


846# 


1394 


1463# 



887 
882 



897 
892 



983 
978 



1079 
1074 



4362* 4372 
4361* 4371 



993 
988 



1089 
1084 



4364* 4374 
4363* 4373 
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SEO 0097 



S2T11 

S2T12 

S2T13 

S2TU 

S2T15 

S2T16 

S2T17 

S2T2 

S2T20 

S2T21 

S2T22 

S2T23 

S2T2A 

S2T25 

S2r26 

S2T27 

S2T3 

S2T30 

S2T31 

S2T32 

S2T33 

S2T34 

S2T35 

S2T36 

S2T37 

S2U 

S2U0 

S2U1 

S2U2 

S2U3 

S2T4A 

S2T5 

S2T6 

S2T7 

TABLE 

TBIT = 

TB1TVE= 

TBUF 

TCSR 

TDONE 

TE«P 

TEMPI 

TEHP2 

TI«TRP 

r>CVEC = 

TPSW 

TPVEC = 

TRAPVEs 

FRTVECs 

TST1 

TST10 

TST11 

TST12 

TST13 

rsTU 



00A046 
004260 
004443 
004653 
005072 
005307 
005525 
002033 
005741 
0^^264 
006520 
006733 
007262 
007463 
007644 
010024 
002315 
010206 
010366 
010545 
010726 
011106 
011264 
011445 
011626 
002577 
012006 
012164 
012341 
012517 
013006 
002773 
003202 
003414 
000662 
000020 
000014 
000666 
000664 

015070 
000710 
000712 
000714 
014712 
000060 
000672 
000064 
000034 
000014 
001304 
003424 
003640 
004052 
004264 
004444 



1481 

1566 

1650 

1718 

1806 

1895 

1983 
862 

2070 

2166 

2268 

2356 

2452 

2555 

2629 

2705 
958 

2780 

2857 

2929 

3003 

3079 

3153 

3226 

3300 

1054 

3374 

3448 

3522 

3595 

3677 

1150 

1219 

1305 
672* 
483# 
467# 
674/r 
673# 

4219 

2172 
683# 
684# 
68SM 
509 
474/Of 
676# 
475# 
473# 
468# 
761* 

1368 

1457 

1544 

1629 

1701 



1548* 
1633* 
1704* 
1786* 
1875* 
1963* 
2051* 
942* 
2138* 
2243* 
2337* 
2423* 
2530* 
2613* 
2688* 
2763* 
1038* 
2839* 
2914* 
2987* 
3062* 
3136* 
3209* 
3284* 
3359* 
1134* 
3433* 
3506* 
3579* 
3652* 
3744* 
1204* 
1287* 
1372* 

4394 
714* 
tto* 
744* 

4404 

2458 
717* 
769* 
770* 

4342* 

751* 
705* 



1389* 
1476* 
1561* 
1645* 
1713* 



4396 
715* 
2173* 
2155 
4423* 
3682 
725 
850 
851 



2171* 
706* 



2459* 
2177* 

4207 
4403* 
865* 
866* 



3683* 4208* 
2183 2441 



4403* 
4406* 
946 
947 



961* 
962* 



4421* 
2463* 



1042 
1043 



2470 3666 3687* 3694 4191 



1057* 1138 
1058* 1139 



4212* 



2256 2457* 2543 3681* 3751 4206* 4273 
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TST15 


004662 


1781 


1801# 


TST16 


005100 


1869 


1890# 


TST17 


005316 


1958 


1978# 


TST2 


C01566 


857# 


2065# 


TST20 


005532 


2046 


TST21 


005746 


2133 


2152# 


TST22 


006310 


2154 


2160 


TST23 


006526 


2331 


235 1# 


TST2A 


006742 


2418 


2438# 


TST25 


007306 


2440 


2446 


TST26 


007466 


2608 


2624# 


TST27 


007650 


2682 


2700# 


TST3 


002050 


953# 


2775» 


TST30 


010030 


2757 


TST31 


010Z12 


2833 


2852# 


TST32 


010370 


2910 


2924# 


TST33 


010550 


2982 


2998# 


TST3A 


010732 


3056 


3074# 


TST35 


011112 


3132 


3148# 


TST36 


011270 


3205 


3221# 


TST37 


011450 


3279 


329S« 


TST4 


002332 


1049# 


3369# 


TST40 


011630 


3353 


TSUI 


012010 


3427 


3443# 


fST42 


012166 


3500 


3517# 


TSU3 


012344 


3574 


3S90# 


TSTA4 


012522 


3647 


3663# 


TST45 


013024 


3665 


3671 


TST46 


013176 


3813 


3832# 


TST47 


013352 


3887 


390S# 


TST5 


002614 


1145# 


3978# 


TST50 


013526 


3960 


TST51 


013702 


4033 


4051# 


TST52 


014056 


4106 


4124# 


'ST53 


014222 


4179 


4188# 


-ST6 


002774 


1201 


1214# 


rsT7 


003206 


1281 


1300# 


TVECT 


000670 


675# 


749* 


TYPE = 


104401 


740 


4294 


TYPOC = 


104402 


4554 


4845# 


TYPON = 


104404 


4847# 




TYPOS = 


104403 


4846# 


4334# 


TZERO 


014702 


507 


T1 


001374 


7780 


825 


T1C0NT 


001402 


771 


785# 


T2 


Q01656 


874# 


921 


T2C0NT 


001664 


867 


881# 


T21C0N 


006004 


2156 


2158 


T24C0N 


007000 


2442 


2444 


T3 


002140 


970# 


1017 


T3C0NT 


002146 


963 


977M 


T4 


002422 


1066# 


1113 


TACONT 


002430 


1059 


1073# 


T44C0N 


012560 


3667 


3669 


X = 


000000 


486# 


869 


XPSU 


015044 


773 
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SEO 0096 



2263# 



2550# 



3759# 



2170* 
4514 



2256» 
4551 



2456* 2543* 3680* 
4555 4623 4737 



3751* 
4844# 



4205* 4273* 



2161# 
2447# 



3672ir 
965 



1061 



1153 1222 



1308 



1397 1484 1569 1653 1721 



1809 
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USER StMBOLS 



SEO 0099 



SAPTHO 

USTATs 

SATYC 

UTY1 

MTV3 

SATY4 

SAUTOe 

$8ASE 

SeOADR 

SBOOAT 

SCHARC 

SCKSUR= 

SCLR.T 

SCHTAG 

SC«3 = 

SCPUOP 

SCRLF 

SOEVCT 

SOOAGN 

SENOAO 

SENDCT 

SENULL 

SENV 

SENVn 

UQP 

$£OPCT 

SERFLG 

SERHAX 

SERROR 

SERRPC 

SERRTB 

tERTTL 

SeSCAP 

SETABL 

SETEND 

SFATAL 

IFF LG 

SFILLC 

SF ILLS 

SGOADR 

(GOOAT 

SGEU2 

SGTSWR= 

SHIBTS 

SICNT 

SILLUP 

SINTAG 

SITEHB 

»LF 

SLFLG 

ILOOP 

SLPAOR 

fLPERR 



000400 
****** (J 

016542 
016516 
016524 
016534 
000534 
000642 
000522 
000526 
016264 
****** u 

014574 
000500 
000000 
000614 
000563 
000576 
014614 
014604 
014546 
014660 
000606 
000607 
014516 
014540 
000503 
000515 
015546 
000516 
000644 
000512 
000560 
000606 
000644 
000570 
016762 
000556 
000555 
000520 
000524 
014556 
****** (J 

000400 
000504 
015530 
000535 
000514 
000564 
016761 
014652 
000506 
000510 



1898 

3005 

3985 
545 

4789 

4760 

4758# 

4608 

4560 
584# 
646# 
579» 

581/r 

4625* 

4850 

4298 
567# 
597# 
620« 
599# 
611f 

4290 
532 
709 

4325# 
61 6# 
6l74r 

4190 
709* 
570# 
576# 
703 
577* 
663# 
574# 
597# 
61 5# 
557 
608# 

4758* 
595# 
594# 
578# 
580# 

4295# 

4849 
5520 
57U 

4483 
585ir 
575# 
600ir 

4799* 

4317 
572# 
573# 



1986 
3081 
4058 

551# 
480A 
4762# 

4759# 
4761# 

742 
827t 

4635* 

4301« 
695 



2073 2174 2271 
3155 3228 3302 
4131 4209 4392# 



4551 


4555 


4579 


4296 


4303 


4309# 


738 


4305# 


4574 


4292« 






2157 


2443 


3668 


734 


4605 


4610 


4196 


4283# 




4289# 


4293 




4433 


4462 


4468* 


711* 


4474* 


4478 


4541# 




4548 


4546* 


4547* 


4545* 


4579 




710* 


4473* 


4570 


647ir 






690* 


4795* 


4798* 


4761* 


4789 


4628 


4676 




4676 







4499 


4521« 




4548* 


4559 


4579 


4579 


4676 




4805ir 






4321# 


4517 




727* 


4466* 


4471* 


728* 


4466 


4472* 



2359 
3376 



2460 
3450 



2557 
3524 



2631 
3597 



2707 
3684 



2782 
3766 



2859 
3839 



2931 
3912 



923* 1019* 1115* 
4642 4668* 4673« 



4624 4676 



4193 
4769 



4478 
4552 
4572 



4557 4603 4767 4791 

4542* 4579 

4579 

4579 



4476 
4478 



4478 
4569 
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VU0R1 

V1A0R2 

V1A0R3 

SMA0R4 

MAIL 

VMMS1 

SMAnS2 

MAMS3 

siuns4 

MBADR 

SMFLG 

SMSGAD 

SMSGLG 

WSGTY 

WTYP1 

UITYP2 

WTYP3 

WTYPA 

SNULL 

tNUTST= 



000620 
000624 
000630 
000634 
000566 
000616 
000622 
000626 
000632 
000402 
016760 
000602 
000604 
000566 
000617 
000623 
000627 
000633 
000554 
000001 



SOCNT 

$onooE 

SOVER 
SPASS 

sPAsrn 

SPOWER 

SPWRAO 

SPWRDN 

SPWRHG 

$PyRUP 

SQUES 

SRDCHR- 

MDDEC= 

SRDLIN- 

$RDOCT= 

SRTMAD 

SATRN 

SR2A s 

tSAVREs 

SSAVR6 

SSCOPE 

$SETUP= 

$STUP = 

$5VLAD 

$SVPC = 

SSUR = 



016512 
016514 
015332 
000574 
000406 
015536 
015512 
015346 
015506 
015420 

000562 
****** u 

****** u 
****** u 
****** u 

014654 
014650 
****** u 
****** u 

015534 
015150 
000037 
M7777 
015276 
000400 
171400 



SSyREG 000610 
SSWRMK= 000300 



633« 

637# 

640« 

64 3# 

553 

627# 

635# 

63&r 

641# 
553# 
4759* 
61 3# 
61 4# 
607# 
628# 
636# 
639# 
642# 
593# 
758# 
1887# 
2995# 
3975# 
4709* 
4704* 
4443 
61 0# 
555# 
4515 
451 7/r 

707 
4515# 
4493 

598# 
4850 
4850 
4850 
4850 
43234f 

714 
4850 
4850 
4492* 
701 
492# 
492# 
4451 
530# 
481# 
1646 
2776 
3760 
;435 
4478 
618# 

482/r 



557 



4765 
4775* 
4780* 
691* 



2173 
854# 
1975# 
3071# 
404&r 
4738* 
4708* 
4461 
733* 

4524# 

4483# 

4499# 
4579 



716* 



4500 

4441# 

4285 

4463 
535 
597 
1714 
2853 
3833 
4436 
4518 
736 
4437 



606# 


4470 


4557 


4800* 


4804# 




4778 






4773 


4781* 


4793 








950# 


1046# 


1142# 


2062# 


2149# 


2260# 


3145# 


321 8# 


3292# 


4121# 


4185# 




4751/r 






4713 


4716* 


4727* 


4467 


4475# 


3670 


2159 


2445 



4512 
4676 

722* 4299 431 8# 



4501* 

4442 

4469# 

598 
1802 
2925 
3906 
4437 
4533 

4438 



4502* 4523# 



4519 


4542 


762 


858 


1891 


1979 


2999 


3075 


3979 


4052 


4442 


4454 


4534 


4535 


4458 


4459 
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USER SYMBOLS 



4603 



SEG 0100 



4797* 



4421 4630 

121 1# 1297# 

234&r 2435# 

3366# 3440^ 



4753# 

4195 4286* 



954 
2066 
3149 
4125 
4456 
4536 



4676 
1386ir 
2547# 
351 4# 



1473# 1558# 1642# 
2621 # 2697# Z77ZM 
55870 3660« 3756ir 



1710# 1798# 
2849# 2921 # 
3829# 3902# 



4287* 4324 



4567 4574 



1050 
2153 
3222 
4189 
4457 
4537 



1146 
2264 
3296 
4279 
4462 
4545 



1215 


1301 


1390 


1477 


2352 


2439 


2551 


2625 


3370 


3444 


3518 


3591 


4286 


4297 


4310 


4324 


4463 


4464 


4469 


4472 


4549 


4564 


4567 


4579 



1562 
2701 
3664 
4434 
4475 
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ITBIT 


0H656 


726* 


4314* 




$TESTN 


000572 


609* 


^ A^ i 

692* 


1 1 7A^ 

4470* 


STKB 


000546 


590# 


4649 


4656 


STKS 


000544 


589* 


4647 


4654 


STN = 


000054 


484* 


/ A^ 

486 


758 


836 


AC/ 

854 


858* 






950 


AC y M 

954* 


972 






1050* 


1068 


4 A7^ 

1076 

4 4 7C 

1 175 






1164 


4 4^4 

1171 






1247 


4 ^C 4 

1251 


4 ICC 

1255 






1342 


1346 


4 TC 1 

1351 






1440 


4 / C4 

1451 


< / 7T 

1473 






i558 


4 C^ 

1562* 


1 C OA 

1580 






1664 


4 Z 74 

1671 


< ^7C 

1675 






1747 


4 7C4 

1751 


< 7CC 

1755 






1843 


1847 


1852 






1941 


4 AO 

1952 


1975 






2062 


2066* 


2084 






4 A A 

2188 


AC 

2195 


H A A 

2199 






2293 


nA7 

2297 


2301 






2388 




2396 






^ C A^ 

2502 


*iC A'7 


2518 






2621 




2643 






2725 


CfCf 


071'? 






2813 


28 


2822 






AAC 

2905 










TA4 7 

3017 


302A 


TAOB 






V4 AO 

3108 


Til') 

3112 


31 10 






V 4 A/ 

3194 


TO A A 

3200 


T01 B 

3218 






3296* 


3314 


3321 






3399 


AT 

3403 


T/ n7 
34U/ 






3484 


3489 


3h95 






3587 


TCQ1 il 

3591* 


3608 






3706 


3710 


171 / 

371h 






3798 


1BA/ 

3804 


TBAQ 
30Ut 






3906* 


3tC<( 


3931 






i A1 1 

401c 


hOIo 








423- 


/ 1 9Cil 


Z1 AT 






/ OTQ 




STPB 


000552 


CAO« 

592* 


4ooJ" 


4676 


ITPFLG 


000557 


3y6* 




HOf 0 


$TPS 


000550 


C01 It 






STRAP 


016764 
0 1 1 OUO 


7AC 


/ B01 il 












SiRP = 


AAA A/1 C 






ilRPAO 


017020 


4826 


4843* 




ITSTW 


AAA /Ay 

000404 


554* 




•»'»33 


STSTNR 


AAAC A1 

000502 


569* 


/ OBC* 
HCOJ* 


$TrP8N= 


****** u 


/ Q< B 








****** ij 


4848 


00 


•»o30 


$1 YPE 


015734 




CT VDPr 

• i irtu 




HOC r 


4634 


4641 


STVPEX 


016266 


4669 


4671 


4674* 


ITYPOf 


016314 


4707* 


4845 


4847 


STYPON 


016330 


4706 


4709* 


STYPOS 


016270 


^702» 


4846 
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4519* 

4676 
4676 

762* 

876 

980 
1081 
1179 
1259 
1362 
1477* 
1587 
1679 
1759 
1863 
1979* 
2091 
2203 
2305 
2401 
2547 
2650 
2737 
2828 
2943 
3032 
3131 
3222* 
3325 
3411 
3514 
3615 
3718 
3829 
3935 
4029 
4150 
4251 



K 8 

USER synsoLS 



3666 
4847* 

4460 



4844 
4646* 



780 

884 

985 
1086 
1183 
1264 
1386 
1495 
1591 
1683 
1764 
1887 
1997 
2095 
2207 
2309 
2412 
2551* 
2654 
2741 
2849 
2950 
3036 
3127 
3240 
3329 
3416 
3518* 
3619 
3722 
3833* 
3939 
4048 
4154 
4256 



4848* 
4469* 



788 
889 
990 
1091 
1187 
1275 
1390* 
1502 
1595 
1687 
1775 
1891* 
2004 
2099 
2211 
2314 
2435 
2569 
2658 
2746 
2853* 
2954 
3040 
3145 
3247 
3333 
3422 
3533 
3623 
3727 
3851 
3945 
4052* 
4158 



793 
894 
995 
1096 
1191 
1297 
1408 
1506 
1599 
1691 
1798 
1909 
2008 
2103 
2215 
2325 
2439* 
2576 
2662 
2752 
2871 
2958 
3045 
3149* 
3251 
3337 
3440 
3542 
3627 
3733 
3858 
3951 
4070 
4164 



4191 4663 4676 



4470 4475 



798 

899 
1000 
1101 
1196 
1301* 
1415 
1510 
1603 
1696 
1802* 
1916 
2012 
2107 

2348 
2475 
2580 
2666 

mi 

2962 

3051 

3166 

3255 

3342 

3444* 

3546 

3631 

3756 

3862 

3956 

4077 

4170 



4478 



803 
904 
1005 
1109 
1211 
1319 
1419 
1514 
1607 
1710 
1820 
1920 
201 6 
2111 
2231 
2352* 
2482 
2584 
2671 
2776* 
2882 
2966 
3071 
3173 
3259 
3348 
3461 
3550 
3636 
3760* 
3866 
3975 
4081 
4175 



808 
909 
1013 
1116 
1215* 
1326 
1423 
1518 
1612 
1714* 
1827 
1924 
2020 
2116 
2260 
2369 
2486 
2588 
2677 
2794 
2886 
2971 
3075* 
3177 
3263 
3366 
3468 
3554 
3642 
3777 
3872 
3979* 
4085 
4185 



813 
917 
1020 
1124 
1232 
1330 
1427 
1522 
1623 
1732 
1831 
1928 
2024 
2127 
2264* 
2376 
2490 
2592 
2697 
2801 
2890 
2977 
3C93 
3181 
3268 
3370* 
3472 
3558 
3660 
3784 
3878 
3997 
4091 
4189* 



4504* 4544 4579 



821 
924 
1028 
1142 
1239 
1334 
1431 
1527 
1642 
1739 
1835 
1932 
2029 
2149 
2282 
2380 
2494 
2597 
2701* 
2805 
2894 
2995 
3100 
3185 
3274 
3388 
3476 
3563 
3664* 
3788 
3883 
4004 
4097 
4224 



SEO 0101 



828 
932 
1046 
1146* 
1243 
1338 
1435 
1538 
1646* 
1743 
1839 
1936 
2040 
2153* 
2289 
2384 
2498 
2603 
2718 
2809 
2899 
2999* 
3104 
3189 
3292 
3395 
3480 
3569 
3699 
3792 
3902 
4008 
4102 
4231 
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tUNlT 

tUNITM 

SUSWR 

$VECT1 

IVECT2 

$XOFF a 

SXON : 

SXTSTK 

SSGET4S 

SOFILL 

SAOCAT« 



000600 
000410 
000612 
000636 
000640 
000023 
000021 
015160 
000001 
016513 
*****t u 

017104 



.USTAs •••••• U 

.SX « 000400 



61 2# 




556# 




61 9# 




644# 


747 


64 5# 




4651 


4676 


4658 


4676 


4445# 




4297# 


4302 


4703* 


4707* 


4442 


4551 


490# 


497# 


544# 


546# 


4324 


4336/r 


4759 


4762 


54U 


546 



4717 4752* 

501# 506# 51 6# 

566# 601 698 

4330# 4478 4495 



L 8 

USER SYMBOLS SEO 010. 



521* 525* 530 531* 533* 535* 541 542* 
727 728 1639* 1795* 1883* 1972* 2255* 2542* 
4522 4579 4676 4807* 4853* 4855* 
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NACtll 


50(1046) 
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4334 






3664 






2551 




3591 








2551 




3591 


3673 




1# 


477# 


ruPRFP 


358# 


3760 


CVTINT 




4189 




355# 


3814 




359# 


3760 




361 # 


762 






780 


899 


904 




1028 


1068 




1183 


1187 




1330 


1334 




1451 


1495 




1603 


1607 




1747 


1751 




1909 


1916 




2024 


2029 




2203 


2207 




2369 


2376 




2502 


2507 




2662 


?'j66 




2809 


2813 




2954 


2958 




3100 


3104 




3240 


3247 




3348 


3388 




3489 


2495 




3631 


3636 




3798 


3804 




3951 


3956 




4102 


4143 


ENDCOn 


1# 


477# 


FNDPAS 


338# 


4294 


ERR 


341# 


780 


899 


904 




1028 


1068 




1183 


1187 




1330 


1334 




1451 


1495 




1603 


1607 




1747 


1751 




1909 


1916 




2024 


2029 




2203 


2207 




2369 


2376 




2502 


2507 




2662 


2666 




2809 


2813 




2954 


2958 




3100 


3104 




3240 


3247 
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4342 


4350 




2625 


2701 


2776 


2625 


2701 


2776 




3tU0 


1070 


TOOO 










T07Q 


oco 




1U5U 


foo 


70'^ 


7Qfl 

f TO 


OHO 


017 


05^ 


lUf 0 


1 Mo 1 


lUOO 


1 1 01 


1 1 0A 
1 ITO 


1 5^5 


1 TTfi 


1 JHC 


1 jHO 


1 cn9 

l3Uc 


1 COA 


1 cm 


1^19 

lOlc 


loc^ 


IOOH 


1 7CC 




1 f 0"» 












5001 


O'^l 1 


551 ^ 
cc 1 5 


555rt 






c joo 


0C1 fi 


5CAO 


5S7A 


COf 1 


5A77 


571ft 

Cr 1 O 


col f 


COC.C 


coco 


ctOc 


ctOO 


5071 


Tins 


T1 15 


^1 




0c35 


jcjy 




TTOO 




3535 

J J -9 J 


3542 


3546 


3642 


3699 


3706 


3809 


3851 


3858 


3997 


4004 


4008 


4150 


4154 


4158 



788 


793 


798 


909 


917 


924 


1076 


1081 


1086 


1191 


1196 


1232 


1338 


1342 


1346 


1502 


1506 


1510 


1612 


1623 


1664 


1755 


1759 


1764 


1920 


1924 


1928 


2040 


2084 


2091 


2211 


2215 


2220 


2380 


2384 


2388 


2518 


2569 


2576 


2671 


2677 


2718 


2817 


2822 


2828 


2962 


2966 


2971 


3108 


3112 


3116 


3251 


3255 


3259 



2853 


2925 


2999 


2853 


2925 


2999 


40S? 


4125 


4197 

■t 1 7r 


4107 


4180 


4261 




4125 




803 


808 

WWW 


813 

W 1 ^ 


932 


972 


980 

#ww 


1091 


1096 

1 W 'W 


1101 


1239 


1243 


1247 


1351 


1362 

1 ^Wb 


1408 


1514 


1518 

1 ^ ■ w 


1522 


1671 


1675 


1679 


1775 


1820 

■ Wfc w 


1827 

■ w*» • 


1932 


1936 


1941 


2095 


2099 


2103 


2231 


2282 


2289 


2392 


2396 


2401 


2580 


2584 


2588 


2725 


2729 


2733 


2871 


2878 

w ■ w 


2882 


2977 


3017 

^W 1 • 


3024 


3121 


3127 


3166 


3263 


3268 


3274 


3407 


3411 


3416 


3550 


3554 


3558 


3710 


3714 


3718 


3862 


3866 


3872 


4012 


4018 


4024 


4164 


4170 


4175 



H 8 
MACRO NAMES 



3075 
3075 



SEQ 0103 



803 


808 


813 


932 


972 


980 


1091 


1096 


1101 


1239 


1243 


1247 


1351 


1362 


1408 


1514 


1518 


1522 


1671 


1675 


1679 


1775 


1820 


1827 


1932 


1936 


1941 


2095 


2099 


2103 


2231 


2282 


2289 


2392 


2396 


2401 


2580 


2584 


2588 


2725 


2729 


2733 


2871 


2878 


2882 


2977 


3017 


3024 


3121 


3127 


3166 


3263 


3268 


3274 



821 
985 
1109 
1251 
1415 
1527 
1683 
1831 
1952 
2107 
2293 
2412 
2592 
2737 
2886 
3028 
3173 
3314 



3149 
3149 



3222 
3222 



828 
990 
1116 
1255 
1419 
1538 
1687 
1835 
1997 
2111 
2297 
2475 
2597 
2741 
2890 
3032 
3177 
3321 



3296 
3296 



821 


828 


836 


876 


985 


990 


995 


1000 


1109 


1116 


1124 


1164 


1251 


1255 


1259 


1264 


1415 


1419 


1423 


1427 


1527 


1538 


1580 


1587 


1683 


1687 


1691 


1696 


1831 


1835 


1839 


1843 


1952 


1997 


2004 


2008 


2107 


2111 


2116 


2127 


2293 


2297 


2301 


2305 


2412 


2475 


2482 


2486 


2592 


2597 


2603 


2643 


2737 


2741 


2746 


2752 


2886 


2890 


2894 


2899 


3028 


3032 


3036 


3040 


3173 


3177 


3181 


3185 


3314 


3321 


3325 


3329 


3422 


3461 


3468 


3472 


3563 


3569 


3608 


3615 


3722 


3727 


3733 


3777 


3878 


3883 


3924 


3931 


4029 


4070 


4077 


4081 


4224 


4231 


4235 


4239 



3370 
3370 



836 


876 


884 


995 


1000 


1005 


1124 


1164 


1171 


1259 


1264 


1275 


1423 


1427 


1431 


1580 


1587 


1591 


1691 


1696 


l-'32 


1839 


1843 


1847 


2004 


2008 


2012 


2116 


2127 


'i88 


2301 


2305 


2309 


2482 


2486 


2490 


2603 


2643 


2650 


2746 


2752 


2794 


2894 


2899 


2905 


3036 


3040 


3045 


3181 


3185 


3189 


3325 


3329 


3333 



3444 
3444 



889 

1013 
1175 
1319 
1435 
1595 
1739 
1852 
2016 
2195 
2314 
2494 
2654 
2801 
2943 
3051 
3194 
3337 



3518 
3518 



88^ 


889 


894 


1005 


1013 


1020 


1171 


1175 


1179 


1275 


1319 


1326 


1431 


1435 


1440 


1591 


1595 


1599 


1732 


1739 


1743 


1847 


1852 


1863 


2012 


2016 


2020 


2188 


2195 


2199 


2309 


2314 


2325 


2490 


2494 


2498 


2650 


2654 


2658 


2794 


2801 


2805 


2905 


2943 


2950 


3045 


3051 


3093 


3189 


3194 


3200 


3333 


3337 


3342 


3476 


3480 


3484 


3619 


3623 


3627 


3784 


3788 


3792 


3935 


3939 


3945 


4085 


4091 


4097 


4245 


4251 


4256 



894 
1020 
1179 
1326 
1440 
1599 
1743 
1863 
2020 
2199 
2325 
2498 
2658 
2805 
2950 
3093 
3200 
3342 
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K 8 



ERROR 



ESCAPE 

GETPRI 

GETSWR 

INT 

MANS 

HNPREP 

nSRC 



MULT 
NEWTST 



NUHERI 

NUHINT 

POP 

PUSH 

REPORT 

RESETN 



SCOPE 



33'.8 
3489 
3631 
3798 
3951 
4102 
371* 
899 
1028 
1183 
1330 
1451 
1603 
1747 
1909 
2024 
2203 
2369 
2502 
2662 
2809 
2954 
3100 
3240 
3348 
3489 
3631 
3798 
3951 
4102 
4335 
If 
1# 
If 
348f 
351# 
343* 
1979 
350# 
2047 
3280 

^» 
}» 

1887 
3145 
354/r 
355# 
If 
If 
If 
342f 
1979 

'm. 

1978 
3221 



3388 
3495 
3636 
3804 
3956 
4143 
780 
904 
1068 
1187 
1334 
1495 
1607 
1751 
1916 
2029 
2207 
2376 
2507 
2666 
2813 
2958 
3104 
3247 
3388 
3495 
3636 
3804 
3956 
4143 
4343 
477f 
477f 
477f 
4416 
1290 
762 
2066 
844 
2134 
3354 
477f 
477f 
1975 
3218 
1146 
2153 
336f 
336f 
477f 
762 
2066 

1% 



3395 
3535 
3642 
3809 
3997 
4150 
788 
909 
1076 
1191 
1338 
1502 
1612 
1755 
1920 
2040 
2211 
2380 
2518 
2671 
2817 
2962 
3108 
3251 
3395 
3535 
3642 
3809 
3997 
4150 
4351 

4310 



1377 
858 

2162 
940 

2238 

3428 

758 
2062 
3292 
1215 
2439 
477f 
477f 



858 
2153 
3370 

857 
215 
336 



3399 
3542 
3699 
3851 
4004 
4154 
793 
917 
1081 
1196 
1342 
1506 
1623 
1759 
1924 
2084 
2215 
2384 
2569 
2677 
2822 
2966 
3112 
3255 
3399 
3542 
3699 
3851 
4004 
4154 
4408 



1466 
954 
2264 
1036 
2332 
3501 

854 
2149 
3366 
1301 

4505 
4485 



954 
264 
444 
953 
263 
443 



3403 
3546 
3706 
3858 
4008 
4158 
798 
924 
1086 
1232 
13<6 
1510 
1664 
1764 
1928 
2091 
2220 
2388 
2576 
2718 
2828 
'971 
;>116 
3259 
3403 
3546 
3706 
3858 
4008 
4158 



1551 
1050 
2352 
1132 
2419 
3575 



Dcc cbckirc 


TAQI C 


Mir on 


nnnc d 


XLC\7 


7A1 1 


JH 1 O 






7SS^ 


J J JO 


^SA3 


jf 1 u 


Of 1 •» 


J < 1 o 


X777 


iOoc 


0000 


7R73 
30f C 


jOf o 


•»U 1 c 


^01 fl 
Hw 1 O 


LC\7L 


40P9 


•» 1 OH 


L^ 70 


H I f J 






OwO 


O 1 J 


R71 




073 


ORO 


08S 

TO J 


1 noi 


inoA 

1 UtO 


1101 


1 100 


1 OXQ 

1 cjy 




1 c"»r 




1 


1 7A3 
1 jOc 


lAOft 
1 HuO 


1 H 1 J 


1 J i*» 


1 ^1 A 


1 jCC 


1S?7 

1 jC f 


1 Or 1 


1 A7S 

1 Or J 


1A70 
lory 


1^83 


177S 

I f fj 




1RP7 

1 OCf 


1831 


107? 


1 7JO 




10S? 


?nQC 


3000 
CMyy 




?107 

CIV' 




ccOc 


77S0 
ccoy 




3703 


3^0A 






3Cftn 
CjOv 


CJO'i 




C^7C 




C.I cy 


CI J J 




3fl71 
COf 1 




98117 


9886 


3077 


X017 


JVC* 


3098 


71 31 


7137 

J 1 tr 


J 1 OO 


31 73 

J 1 r J 


jcOj 


^7AR 


^?7A 


3314 


"KLtO 


JH 1 1 


1 o 




7^^n 

JJJV 


JJJH 




3563 


^71 n 


Jf 1 H 


3718 


3722 


3862 


3866 


3872 


3878 


4012 


4018 


4024 


4029 


4164 


4170 


4175 


4224 



4506 
4491 

1050 
2^52 
3518 
1049 
2351 
3517 



1636 
1146 
2448 
1202 
2525 
3648 



950 1046 

2260 2348 

3440 3514 

1390 1477 



4801 
4762 



1146 
2439 
3591 
1145 
2438 
3590 



1791 
1215 

1282 
2609 
3739 

1142 
2435 
3587 
1562 

4802 
4764 



1211 
2547 
3660 
1646 



4785 
1301 

1300 



1297 
2621 
3756 
1714 



1390 
2701 
5833 
1389 

m 



3461 
3569 
3727 
3883 
4070 
4231 
828 
990 
1116 
1255 
1419 
1538 
1687 
1835 
1997 
2111 
2297 
2475 
2597 
2741 
2890 
3032 
3177 
3321 
3461 
3569 
3727 
3883 
4070 
4231 



3468 
3608 
3733 
3924 
4077 
4235 
836 
995 
1124 
1259 
1423 
1580 
1691 
1839 
2004 
2116 
2301 
2482 
2603 
2746 
2804 
3036 
3181 
3325 
3468 
3608 
3 33 
3924 
4077 
4235 



3472 
3615 
3777 
3931 
4081 
4239 
876 
1000 
1164 
1264 
1427 
1587 
1696 
1843 
2008 
2127 
2305 
2486 
2643 
2752 
2899 
3040 
3185 
3329 
3472 
3615 
3777 
3931 
4081 
4239 



3476 
3619 
3784 
3935 
4085 
4245 
884 
1005 
1171 
1275 
1431 
1591 
1732 
1847 
2012 
2188 
2309 
2490 
2650 
2794 
2905 
3045 
3189 
3333 
7476 
'619 
.'784 
3^35 
4085 
4245 



3480 
3623 
3788 
3939 
4091 
4251 
889 
1013 
1175 
1319 
1435 
1595 
1759 
1852 
2016 
2195 
2314 
2<i94 
2654 
2801 
2943 
3051 
3194 
3337 
3480 
3623 
3788 
3939 
4091 
4251 



1386 
2697 
3829 
1802 



1477 
2776 
3906 
1476 
2775 
3905 



1473 
2772 
3902 
1891 



1562 
2853 
3979 
1561 



1558 
2849 
3975 
1979 



1646 
2925 

4052 
1645 
2924 

4051 



1642 
2921 
4048 
2066 



1714 
2999 
4125 

1713 
2998 
4124 



1710 
2995 
4121 
2264 



4189 
4188 



SEO 

346*. 
3627 
3792 
394!) 
4097 
4256 
894 
1020 
1179 
1326 
1440 
1599 
1743 
1863 
2020 
2199 
2325 
2498 
2658 
2805 
2950 
3093 
3200 
3342 
3484 
3627 
3792 
3945 
4097 
4256 



1879 
1301 


1968 
1390 


2055 
1477 


2142 
1562 


2248 
1646 


2341 
1714 


2428 
1802 


2535 
1891 


1369 
2683 


1458 
2758 


1545 
2834 


1630 
2911 


1702 
2983 


1782 
3057 


1870 
3133 


1959 
3206 



1798 
3071 
4185 
2352 



1891 
3149 

1890 
3148 
4284 
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TABLE ~ HACRO NAWES 



SETPRl 

SETTRA 

SETUP 

SKIP 

SKPINT 

SLASH 

SPACE 

STARS 



SWRSU 

TCVTAN 

TRHTRP 

TSTANS 

TSTCC 



TSTGR 



TSTREG 
TTY 

TrPBIN 
TYPDEC 
TVPNAM 
TVPNUH 
TYPOCS 
TYPOCT 
TYPTXT 
SSCnRE 

ticmn 

SSESCA 
SSNEWT 



SSSET 

tSSKJP 

.EQUAT 

.HEAOE 

.KTll 

.SETUP 

.SWRHl 

.SACn 

.SAPTB 

.MPTH 

.MPTY 

.SASTA 

.SCATC 

.»cmA 



.SOIV 



1* 
4836# 

^» 
^» 

344« 

^» 
1« 

952 
1642 
2262 
2921 
3442 
4048 
1* 

356# 
4836« 

353# 

352# 
2365 
3531 

349« 
2374 
3540 

363* 

346# 

1/r 
i/r 
1/r 
u 
y» 
y» 
i# 
560* 
560* 
1/r 

1887 
3145 
4836# 

y» 
i# 
i# 
i# 
i# 
i# 
i# 
i# 
i# 
i# 
i# 
i# 

i# 
i# 
i# 



477/r 
4845 

336* 

477* 
2153 

477* 

336* 

1046 
1644 
2348 
2923 
3514 
4050 
477* 
3782 

1269 
1160 
2469 
3604 
1169 
2480 
3613 
785 
2169 
477* 
477* 
477* 
477* 
477* 
477* 
477* 



477* 
477* 
1975 
3218 
4845 
477* 
336* 



336* 

336# 
602* 
336* 
336* 

336* 
336* 



4846 
477* 



4847 



2439 3664 



477* 
1048 
1710 
2350 
2995 
3516 
4121 



1356 
1228 
2565 
3693 
1237 
2574 
3704 
881 
2455 



4552 



758 
2062 
3292 
4846 

367 



492 

526 

536 
4755 

495 
560 



528 
1142 
1712 
:435 
2997 
3587 
4123 



1445 
1315 
2639 
3773 
1324 
2648 

977 
3679 



854 
2149 
3366 
4847 



538 
1144 
1798 
2437 
3071 
3589 
4185 



3856 3929 4002 



1532 
1404 
2714 
3847 
1413 
2723 

1073 
4204 



540 


547 


562 


1211 


1213 


1297 


1800 


1887 


1889 


2547 


2549 


2621 


3073 


3145 


3147 


3660 


3662 


3756 


4187 


4277 


4430 


4075 


4148 


4229 


1617 


1769 


1857 


1491 


1576 


1660 


2790 


2867 


2939 


3920 


3993 


4066 


1500 


1585 


1669 


2799 


2876 


2948 



601 
1299 
1975 
2623 
3218 
3758 
4481 



950 
2260 
3440 



1046 1142 1211 1297 
2348 2435 2547 2621 
3514 3587 3660 3756 



604 
1386 
1977 
2697 
3220 
3829 
4497 



758 
1388 
2062 
2699 
3292 
3831 
4530 



760 
1473 
2064 
2772 
3294 
3902 
4582 



854 
1475 
2149 
2774 
3366 
3904 
4679 



856 
1558 
2151 
2849 
3368 
3975 
4757 



1386 1473 1558 1642 
2697 2772 2849 2921 
3829 3902 3975 4048 



950 
1S60 
2260 
2851 
3440 
3977 
4815 



1946 


2034 


2121 


2225 


2319 


2406 


2512 


1728 


1816 


1905 


1993 


2080 


2182 


2278 


3013 


3089 


3162 


3236 


3310 


3384 


3457 


4139 


4218 








2193 


2287 


1737 


1825 


1914 


2002 


2089 


3022 


3098 


3171 


3245 


3319 


3393 


3466 



1710 1798 
2995 3071 
4121 4185 



MAIN. 


MAC Y1 1 


LVKAJ8. 


PI 1 


.IE OP 


1« 


.SERRO 


1« 


.tERRT 


1« 


.WULT 


1« 


.tPOWE 


1f 


.SRAKD 


1# 


.SRDDE 


^» 


.SRDOC 


i« 


.SREAD 


i# 


.$R2AZ 


i« 


.tSAVE 


i# 


.tS82D 


i« 


.tSBZO 


i« 


.ISCOP 


i« 


.SSIZE 


i« 


.SSUPR 


i« 


.$TRAP 


i« 


.STYPB 


i« 


.$TYPO 


i« 


.STfPE 


i« 


.STYPO 


1* 


.S40CA 


i# 


.1170 


i« 


. ABS. 


01 71 OA 
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336# 4275 
336« 4528 



336# 4479 



336« 4428 
336« 4813 



336« 4580 
336* 4677 



000 



ERRORS DETECTED: 0 

CVICAJB.BIN,CVKAJB.LST/CRF/S0L/NL:T0C=SYS«AC.SML.CVKAJB.P11 
RUN-TIME: 19 21 1 SECONDS 
RUN-TI«E RATIO: 115/42=2.7 
CORE USED: 39K (78 PAGES) 



C 9 
MACRO NAMES 



SEO C- 



